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TITLE DlMS3i»kEV E» 
DISKETTl TEST 
PART NU. 

DIMX3 o0l33/65-003 

DIMS3 ou129824-003 

u IML 3 60133766-003 


* 

* 

* 

* 

* DESCRIPTION 


THIS ... ... ... ____ ,.. r , , __ 

D1SKETT t SUBSYSTEM* PROVIDES A FIRST LEVEL OF DIAGNOSIS WHEN FAILURES 

are detected* and makes facilities available to support extensive problem 

INVEST IOAiIONS. 


..1.6 V PROykAM VERIFIES^PROPER^OPERATION UF, THf i Fyt.L-6 


THE SUpSYSTlM OPTIONS SUPPORTED BY this program arf: 

DIM930I DISKETTE CONTROLLER (SINGLE DENSITY) 6/20 

0IM9101 DISKETTE CONTROLLER 

D1U9101 SINGLE DISKETTE 
D 1U9102 DUAL DISKETTE 


REVISION HISTORY 


001 

002 

003 

004 

003 


NOV 

DEC 

APR 


1973 

1976 

1977 
JUL 1977 
FEB 1978 


DIMT1 
D1 MSI 

D1MS1-D1ML1 
D1MS1-DIML 1 
DIMS3-DIML3 


original relfasf 
laf 

w/ MLCP LIBRARY 
(SAF ANu LAF) 6/20 


S CONFIDENTIAL AND 

—-g N sv -. 


lNFORMATK 


SYSTEMS 


* THIS DuCUMEnT AND THE INFORMATION C^NTAINEu THERFIN 

* PROPRIETARY TO AND THE EXCLUSIVE PROPERTY OF hONEYwfLL 

* JM&fr H 15 MADE AVAILABLE ONLY TO HONEYWlLL AUTHORIZED RECIPIENTS FOR 

* THE.Tr USE SOLELY IN THE MAINTENANCE AND OPERATION OF HONEYWELL PRODUCTS. 

* THIS DOCUMENT aND INFORMATION MUST BE MAINTAINED IN STRICTEST CONFIDENCE? 

* IT MUST NOT BE REPRODUCED IN WHOLE OR IN PARI? AND IT SHALL NOT BE DIS- 

* CLOSED TO ANY UlHER PARTY WITHOUT THE PRIOR WRITTEN CONSENT OF HONEYWELL. 
******************************************************###*****##*#####******* 
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/ PROGRAM PREPARATION; 


the ROuT source of this program, after the addition of the appropriate 

TITLt AND END STATEMENTS* WAS PROCESSED BY THE HOST RESIDENT ASSEMBLER 
10 CREATE EITHER SHORT OR LONG ADDRESS FORM ( Saf OR LAP ) OBJECT TEXT 
AND LISTING. THE OBJECT TEXT WAS FURTHER PROCESSED BY THE HOST 
RESIDENT LINKER USING THE APPROPRIATE CONSuLE Zv$LlB LIBRARY TO CREATE 
A PUNCH SEGMENT CONTAINING AN EXECUTABLE MODULE. THE ASSEMBLY LISTING 
WAS AUgMENTlD WITH CROSS REFERENCE DATA, PLUS THF LOAD MAP FROM THE 
LINKER 7U CREATE A LIST SEGMENT. 

ROuT SAF LAF 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* DlST k 1bUTI UN 


NAME DIMX3 

DOCUMENT 60133765-005 


DIMS3 

60129824-005 


D1Ml3 

60133766*005 


THl ELEMENTARY ITEMS SUBMITTED TO THE T 6 V PROGRAM DISTRIBUTION CENTER 
WERE THE EXECUTABLE LINKED IMAGES, ON DISKETTE* OF DIMS3 AND DIML3, AND 
MAGNETIC TAPE IMAGES OF THE AUGMENTED LISTINGS. 

REPRODUCTIONS OF THE EXECUTABLE LINKED IMAuES May BE AS DUPLICATE CARD 
DECKS UK Ao A MEMBER OF A MULTIPLE MEMBER FILE. IN THE MOST FREuUENT 
CASE, IT WILL BE FOUND AS MEMBER "SJ" (SaF) Or »LJ" (LAF) WITHIN FILE 
"PkUGF ILL" uF A DISKETTE VOLUME ENTITLED "dIAGS«. 


DISTRIBUTION OF THE l 
MAINTENANCE OR REPAIf 


ISTINGS, WHICH SHOULD BE AVAILABLE IF ANY COMPLEX 
IS TO BE PERFORMED* IS NOrmAI LY AS A PRINTED COPY. 


ROUTINE DEMONSTRATION 

A MINIMUM SATISFACTORY TEST FOR NORMAL OPEkATION MAY BE AC 
BY RESPONDING WITH "A" TO THE QUESTION "NLaT ?;» AND LET T 
COMPLETE ONE PASS. 

STORAGE 

THIS PKUGRAM REQUIRES AT LEAST 16 K WORbu OF MAIN MEMORY 
DI SCR 1PTION 

THE USER 


THIS PKUGRAM WILL RUN UN MOST OF THE LEVLL-6 SYSTEMS. 

SHOULD KNOW THE FACT - - ..~ “ ‘ 

EXIST uN CONTROLLERS 

THE EXECUTION TIME OF ..... __ _.. . 

SYSTtMS. BuTH 6/30 AMD 6/40 SYSTEMS DO ALu TESTS, WHILE 6/20 
SYSTEM BYPASSES FOLLOWING TESTS; 


THAT, DUE TO HARDWARE AND FIRMWARE DIFFERENCES 
AND ADAPTERS ATTACHED TO DifFFReNT SYSTEMS, 

F THE PROGRAM WILL BE ulFFERFNT FOR DIFFERENT 


TEST b. 
TEST F. 
TEST L. 
TEST W. 
TtST X. 
TEST Y. 
OPERATION 


WRAPAROUND TEST 

DIAGNOSTIC WRITE-READ TEST 

TRACK CAPACITY TEST 

WRITE DELETED DATA FIELD TEST 

READ AROUND DELETED DATA FIELD TLbT 

READ DELETED DATA FIELD TEST 


LOAD THE PROGRAM. THE PROGRAM WILL, START dY ITSFLF. THE NAME OF THL 
PROGRAM AND THE DATE OF RELEASE WILL BE DIbPLAYFD ON THE CONSOLE. 

THl INITIAL START WILL ALSO DISPLAY? 

THE bVSLId REVISION NUMBER 
THE ADDRESS FORM (SAF OR LAF) 

I/O equipment detected in the SYSTEM 

MEMORY SUE 


THIS DISPLAY MUST BE VERIFIED BY THE OPERATOR. 
ON RESTARTS. 


THIS DISPLAY IS OMITTED 


THE CONSOLE SEARCH RULES ARE; FIND THE CONSOLE WITH THE LOWEST CHANNEL 

NUMBER CONNECTED THROUGH A controller. IF THErf IS NO CONSOLE* 

THEN SEARCH FOR A TERMINAL WITH THL HiGHLSf CHANNEL NUMBER ASSIGNED 
TU AN aCLA ADAPTER ON AN MlC (NOT DLC) PROCESSOR. IF NO ASYNC ADAPTER 
IS FOUND* THEN GO TO 1 HE FULL CONTROL PANEL. 

THERE ARE TfiRLL CONSOLE CHANNEL OPTIONS DtlEKMlNFD BY THE VALUE OF LO¬ 
CATION "ZVSTTY". 

IF ZVSTTY EuUALS (0000), SEARCH FOR A CONSuLE. 

IF ZVSTTY EuUALS (F F FF) * ASSUME THERE IS No CONsOLF. VII 

U Z V $ 11Y EuUALS NEITHER (0000)* NOR (FFFF)* THfn IT IS THE CONSOLE CHAN¬ 

NEL NUMBER. NOTE; DEFAULT IS TO SEARCH FOR A CONSOLE. 


ALL CONSOLE I/O IS EVEN PARITY. IF CONSQLu IS ON MLC* 
‘‘ ... . “ TCH THE P' 


_ „_ ... .. .. „_ ._ IT MUST BE ASYNC 

AND THl BAUD RATE SET AT 1200 TO MATCH THE PROGRAM SUPPLIED RATE. IF IT 
IS NECESSARY TO-CHANGE THE PROGRAM BAUD RAIE* THFN THE,, NEW BAUD RATE 
CODE SHOULD BE PUT IN 10 LOCATION «ZV$BUD” IN HLx. THE TERMINAL BAUD RATE 
MUST bt SET TO MATCH THIS NEW BAUD RATE. THE CORRECT HEX VALUE MAY BE 
OBTAINED FROM THE FOLLOWING TABLE. 


bAUD RATE TABLE 


ACLA I.D. 

BAUD-RaTE 

50 

75 

110 

134 

150 

200 

300 

600 

900 

1050 


(2118) (2110) 

0 

1 

2 

3 

4 

5 

6 
7 


* 

* 

* 

’*(2108) 

1 

2 

3 

4 

5 

~6~ 

7 

8 
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* 

1200 

9 

9 

* 

1800 

10 (A) 

10 (A) 

* 

2000 

11 (B) 


* 

2400 

12 (C) 

11 (B) 

* 

3600 


12 (C) 

# 

4800 

ir<D> 

13 (D) 

* 

7200 

— —- 

14 (E) 

* 

9600 

14 (E) 

15 (F) 

* 

19200 

15 (F) 


# 

TO MAKE ANY OF 

THE ABOVE CHANGES, 

LOAD ANu 


* 

* 

* 

* 

* 

* 

* 

* 


ECUIION. INSERT CHANGE THEN EXECUTE. MEMuRY LOCATIONS OF "ZV$TTY" AND 
"2v$BUu" MAY BE FOUND IN MAP AT END OF LISlING. 

CONSUL! LEVtL-6 T6V MANUAL "AW94" FOR DETAILS On HOW TO LOAD THE TESTS. 


THE FOLLOWING IS A TYPICAL RtSULT OF LOADING 
PKUGKAM. 


and starting to run the 


DISKETTE TEST DIMS3 
ZViLib KbV. 6.0 
WDT 

CHAN ULVC 
0400 uSKT 
04b0 OSKT 
0580 CDK 
1200 DISC 
1280 DISC 
1300 LPT 
13bO CONS 


FEB 16, 1978 REV. L 


MEmOkY LOW 


ID 

2010 
2010 
2008 
2330 
2330 
2000 
2019 
00002B2D 


MEMORY HIGH 00003FFF 16K 

THE CoNbULE wILL THEN DISPLAY THE MtSSAGE 

"PLEASE REMOVE THE PROGRAM DISKETTE FROM iHE DrtvF" 

THE USEk SHOULD REMOVE THE PROGRAM DISKETTE FROM THF DISKETTE DRIVE 
BEFORE PROCEEDING ANY FURTHER. 

THE C0N3ULE wILL THEN ASK THE QUESTION "CHaNNEL(S) ?I M 

THE OPERATOR SHOULD RESPOND WITH ONE OF THE FOLLOWING FORMATS: 


XXXX,Y YYY 

XXXX 

YYYY 


TEST BOTH CHANNEL XXXX AND CHANNEL YYYY 
TEST CHANNEL XXXX ONLY 
TEST CHANNEL YYYY ONLY 


WHERE XXXX AND YYYY ARE CHANNEL NUMbtRS IN HEX 

DO NOT SLLECI A CHANNEL, IF THERE IS NO DEVICE ATTACHED TO IT 

THE CUNbULE wILL THEN ASK THE QUESTION "POwER FRFQUENCY ?; " 

RESPOND bY TYPING THE FREQUENCY OF THE POWER LINf (60 IN USA). 
IF IT IS A 6/40 SYSTEM, THE QUESTION WILL NUT BE ASKED. 

THE CONSOLE wILL THEN ASK THE QUESTION "NtxT ?;« 

THE UPERATOR SHOULD RESPOND WITH ONE OF THE THREF FORMATSJ 

A TEST BOTH CONTROLLER ELECTRONICS And DEVICE 

E TEST CONTROLLER ELECTRONICS OnLY 


R READ THE ENTIRE DISKETTE VOLUmE(S) IN THE SPECIFIED 

CHANNEL(S) AND REPORT ERROR IF ANY 

IF THE KlSPOmSE IS »R", FORMAT OF THE DISKETTE VOI UME USED MUST BE 
COMPARABLE To HONEYWELL STANDARD. THE PROGRAM Wii L READ THE ENTIRE 
VOLUME (HEADtRS AND DATA FIELDS ON ALL TRACKS AND Al L SECTORS). 

IF THE UPtRAlOR RESPONSE IS "A", THE PROGRAM WILL TFST THE CONTROLLER 
ELtURONiCS FIRST AND THEN PROCEEDS TO THE uEVICf TFST. AT THIS 
POINT, THE CuNSOLE WILL ISSUE FOLLOWING MESSAGES; 

"OPEN DOOR ON DRIVE;" 

"PUT wuRK DISKETTE AND CLOSE THE DOOR ON;" 

IF THE DOOR IS ALREADY OPEN, THE FIRST QUESTION WON’T BE ASKED. 

THE PROGRAM wILL THEN RUN FOR A PERIOD (13 MINUTFS MAX.) UNTIL 
THE TEST IS COMPLETED. 

IF THE RESPONSE IS "E" OR »R", THE PROGRAM RUNS WITHOUT THE OPERATOR 
INTERVENTION UNTIL THE TEST IS COMPLETED. THE END OF ALL THREE TESTS 
ARE INDICATlD BY A COMPLETION MESSAGE "END-OF-TFST« DISPLAYED ON THt 
CONSOLE AND THE PROGRAM WILL RETURN TO THE QUESTION "CHANNEL(S) ?;«. 

ERROR REPORT 1 No 


THt. PROGRAM REPORTS THREE KINDS OF ERRORS. THEy ARE; UNRECOVERABLE 
ERRORS, RECOVERABLE ERRORS, AND MAJOR ERROnS. 

A KtCOvtRABLE ERROR IS IDENTIFIED BY THE CUNSOLf ERROR MESSAGE 
APPEARING NOT MORE THAN TWICE INDICATING TmE SAmf TYPE OF ERROR 
AT THE SAME LOCATION (5AME CHANNEL, SAME TRACK, SAME SECTOR). 

AN UNktCGVEKABLE ERROR IS IDENTIFIED BY THt CONsOLF ERROR MESSAGE 
APPEARING THREE TIMES INDICATING THE SAME ERROR AT THE SAME 
LOCATION (SAME CHANNEL, SAME TRACK, SAME StCTOR).. 

BOTH RtCOVEKABLE AND UNRECOVERABLE ERRORS ARE RfpORTED AS FOLLOWS; 
TEST TYPE. ERROR TYPE 

track; sector; channel; 

A MAJOR ERRuR IS DISPLAYED ON THE CONSOLE mS F0| i OwS; 
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0002 6 <+ 
00026b 
000266 
00026 7 
OOO 4 6 6 
000^60 
000270 
000^71 
0002 7 4 
00027^ 
0 0 0 4 7 A 
uuOt7 b 
000476 
0004 7 / 
00047b 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


ERR ERCODE AT AAAA 

where; 

ENCODE = ERROR CODE WITH FOUR CHARACTERS 

AAAA = LOCATION OF TEST IN PROGRAM WiiERE FRROR WAS 


IF THERE IS NO CONSOLE PRESENT * THE OPERATOR CAN DFTERMINE THE 

error code dy examining the registers di and D2. sfe error message 

TAbLE bELOW. CONSULT LEVEL-6 T&V MANUAL "Aw94" FOR FURTHER DETAILS* 


a pass is considered successful only if thc.re arf a maximum 
of three recoverable errors, AND NO UNRECOvERABif and major errors. 




C_>' 
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000279 

/ 



ERROR MESSAGE TAbEE 



UOO 48 O 

* 






000 cbi 

* 






000204 







000203 

* 






0004b4 

* CONTKOL 

DISPLAYED 

MOST PROBABLE 

DIAGNOSIS 

0004b0 

*panel cooed 

TEXT 

MEANING 

000486 

* HLT 





0 U 0 2 8 7 

* 






0U0286 

* R 1 

R2 



6/?0 6/30 OR 6/40 

0 0 0 4 8 v 

Gu049O 







* 6572 

3031 

EKOl 

PANEL CHECK LIGHT IS ON 



000491 

* 6572 

3032 

Ek 02 

ILLEGAL TEST NAME 

OPERATOR 

OPERATOR 

000494 

* 



ENTERED 

U00498 

* 6372 

3033 

Ek03 

ILLEGAL CHANNEL ENTERED 

operator 

OPERATOR 

00049h 

* 6572 

3034 

ER04 

CAN'T READ DEVICE ID 

controller 

MDC 

000490 

* 6572 

3035 

Ek05 

ILLEGAL CHANNEL ENTERED 

operator 

OPERATOR 

000496 

* 6572 

3036 

EK06 

CP CAN'T CHANGE LEVEL 0 

CP 

CP 

000497 

* 6572 

303 7 

EK07 

WRONG CONFG. WORD A. 

controller 

MDC 

00049c 

* 



PROM CHAN A. 

000299 

* 6572 

303b 

EK08 

WRONG CONFG. WORD b. 

CONTROLLER 

MDC 

OOOoOu 

* 



FROM CHAN A* 


000 30i 

* 6572 

3039 

EK09 

WRONG CQMFG. WORD A. 

controller 

MDC 

000^04 

* 



FROM CHAN. A. 


00030c 

* 6572 

3130 

Ek 10 

WRONG CONFG. WORD a. 

controller 

MDC 

000304 

* 



FROM CHAN A. 


ooo^oo 

* 6572 

3131 

EkI 1 

WRONG RESIDUAL RANGE 

controli er 

MDC 

00030o 

* 



AFTER AN IOLD CHAN A # 
WRONG RESIDUAL,RANGE 

oooco / 

* 6572 

3134 

Ek 1 2 

CONTROL! ER 

MDC 

000 cO 0 

* 



AFTER AN IOLD CHAN A. 

000 30V 

* 6572 

3133 

EkI 3 

WRONG ID FROM CHAN b # 

CONTROLI ER 

MDC 

OOU310 

* 6572 

3134 

Ek 14 

WRONG ID FROM CHAN B. 

CONTROLI ER 

KBS 

ouOc 1 i 

* 6572 

3136 

Ek 15 

WRONG CONFG. WORD A. 

CONTROLI ER 

0003 14 

* 



FROM CHAN b. 


00031 3 

* 6572 

3136 

Ek 1 6 

WRONG CONFG. WORD a. 

CONTROLLER 

MDC 

000314 

* 



FROM CHAN b. 

000 c 1 5 

* 6572 

313 / 

Ek 17 

WRONG CONFG. WORD A* 

CONTROL! ER 

MDC 

000316 

* 



FROM CHAN B 

000317 

* 6572 

3138 

Ek 18 

WRONG CONFG. WORD b# 

CONTROLI ER 

MDC 

UUOclb 

* 



FROM CHAN B. 


00031 9 

* 6572 

3139 

EK 19 

WRONG RESIDUAL RANGE 

CONTROLLER 

MDC 

000320 

* 



FROM CHAN B. 


OUU c 2 i 

* 6572 

3230 

Ek20 

WRONG RESIDUAL RANGE 

CONTROLLER 

MDC 

000^24 

* 



FROM CHAN B. 


000^23 

* 6572 

3231 

Ek 2 1 

WRONG RESIDUAL RANGE 

N/A 

ADAPTER 

000324 

00U323 

* 

* b51Z 

3234 

Ek22 

WHILE WRAPAROUND 

DEVICE SHOULD INTERRUPT 


00032c 

* 



BUT DIDN'T 



000327 

* 6572 

3233 

EK33 

DEVICE SHOULDN'T II\»Te- 



000328 

# 



RRUPT bUT DID 



000329 

* 6572 

3234 

EK24 

PENDING INTERRUPT 



000 3 30 

* 



DIDN’T COME 



U00331 

* 6572 

3235 

Ek2 5 

WRONG DEVICE INTE 



000334 

* 



RRUPTED CP 



000333 

* 6572 

3236 

Ek 26 

S-REGISTER WRONG IN 



000334 

# 



INTERRUPT SAVE AREA 



0UU333 

* 6572 

323 i 

EK2 7 

PROGRAM LEVEL FLAG IS ON 



00033c 

* 



IT SHOULDN'T BE 



0 U 0 3 3 7 

* 6572 

323b 

Ek 2 8 

PROGRAM LEVEL FLAG IS 



00033c 

* 



OFF, IT SHOULDN'T 



0UOc39 

* 6572 

3239 

Ek29 

CP CAN'T CHANGE LEVEL 



U 0 0 3 4 U 

* 6572 

33 30 

EK30 

WRONG STATUS FROM CHAN A 

DEV ICF OR 

DEVICE OR 

adapter 

000341 

* 



WHILE DOOR TEST 

CONTROL! ER 

UO 0 34t 

* 6572 

3331 

ER31 

WRONG STATUS FROM CHAN b 

DEVlC'F OR 

DEVICE Ok 
ADAPTER 

000^43 

* 



WHILE DOOR TEST 

CONTROLLER 

000344 

* 6572 

3332 

EK32 

wrong STATUS WHILE 

controller 

MDC 

Uu0 3 4 3 

* 



TRACK CAPACITY TEST 


OU 0 3 4 6 

* 6572 

333c 

EK33 

SEEK ERROR BIT NOT b£T 

CONTROLLER 

MDC 

UO034 l 

* 6572 

3334 

EK34 

TRACK CAPACITY OUT OF 

controller 

MDC 

uu034c 

* 



TOLERANCE 


000349 

* 6572 

3335 

EK35 

SUSPECT BAD MEDIA 

media 

MEDIA 

u u u 3 3 0 

# 



RERUN WITH NEW MEDIA 

U00331 

* 6572 

3336 

EK36 

DIAGNOSTIC WRITE/READ 

N/A 

MDC 

000334 

* 



failed. 


000333 

* 6572 

3337 

EK3 7 

SUSPECT BAD MEDIA 

N/A 

MEDIA 

OoG J5<+ 

* 



RERUN WITH NEW MEDIA 

000333 

* 6372 

333b 

Ek38 

SUSPECT BAD MEDIA 

N/A 

MEDIA 

00033c 

* 



RERUN WITH NEW MEDIA 

000337 

* 6572 

3339 

EK39 

DIAGNOSTIC READ/WRITE 

N/A 

MDC 

OoO 3 3 8 

* 



FAILED 


0 O 0 3 3 9 

* 6572 

3430 

Ek4G 

DATA VlISCOMPARE WHILE 

controli er 

MDC 

0 O 0 3 6 0' 

* 



BYTE ADDRESSING 

- 

OO036i 

* 6572 

3431 

Ek4 1 

DATA MISCUMPARE WHILE 

CONTROLI ER 

MDC 

0 u 0 3 6 4 

* 



BYTE ADDRESSING TEST 

DATA MlSCOMPARE WHILE 


u003o3 

* 6572 

3432 

EK42 

controller 

MDC 

u003bn 

* 



BYTE ADDRESSING TEST 


000363 

* c572 

3433 

EK43 

WRONG EDC CHARA WHILE 

controller 

MDC 

0o036c 

* 



FORCED ERROR TEST c 

READ ERROR BIT NOT SET 


0u036 / 

* 6572 

3434 

EK44 

controller 

MDC 

Uo036c 

* 6572 

3435 

Ek45 

UNSUCCESSFUL SEARCH 

controli er 

MDC 

0 u U 3 6 9 

* 



BIT NOT SET 


00 O 3 7o 

* 6572 

343c 

Ek46 

SEEEK ERROR BIT NOT SET 

CONTROLLER 

MDC 

0 u 0 3 7 i 

* 6572 

3437 

Ek47 

FORMAT READ/wRITE 

CONTROLLER 

MDC 

0003 74 

* 



FAILED 


U 0 O 3 73 

* 6572 

343c 

Ek48 

DELETED DATA BIT NOT SET 

controller 

MDC 

0 0 0 3 7 4 

* 6572 

3439 

Ek49 

READ DELETED DATA 

N/A 

MDC 

U 0 O 3 73 

# 



FIELD TEST FAILED 

0003 7c 

* 6572 

3530 

Ek50 

NO INTERRUPT WHILE 

DEVICF OR 

DEVICE OR 

000 3 7 7 

* 



DOOR TEST 

controli er 

Xc pjer 

U 0 0 3 7 c 

* 6372 

3531 

Ek5 1 

TRACK CAPACITY OUT 

N/A 

0OO37v 

# 



OF TOLERANCE 



0 0 0 3 b 0 

* 6572 

3534 

Ek52 

UNRECOVERAaLE error 

controli ek 

MDC 

00U381 

* 6572 

3533 

EK53 

DEVICE NOT READY 

DEVICF 

DEVICE 

OU0384 

* 6572 

3534 

Ek54 

WRONG FORMAT ON 

CONTROLI ER 

MDC 

000383 

* 



DISKETTE MEDIA 


uuU38m- 

* 6572 

3535 

EK55 

DATA MISCOMPARE 

DELETED DATA BIT NOT SET 

CONTROLI er 

MDC 

00 03 8 3 

* 6372 

3536 

EK56 

N/A 

adapter 

000386 

* 6572 

3537 

EK57 

I/O TIME OUT 

CONTROLIER 

MDC 

0U0387 

* 6572 

353b 

Ek5B 

CHANNEL ALWAYS BUSY 

CONTROLLER 

MDC 

00038c 

* 6572 

3539 

EK59 

RECOVERABLE ERROR 


000389 

* 6572 

3630 

EK60 

WRONG RESISDUAL RANGE 

N/A 

MDC 

0 0 0 3 9 0 

* 



WHILE DELETED DATA READ 



000391 

* 
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o 0039 <- 
uou 3 9 b 
000394 
OO0396 
0 0 o 3 9 6 
00039 f 
U0039b 
000 3 9 4 
00U400 
OUO40 i 
OO040<_ 
uu 04U3 
0 U 0 4 0 4 
uU04 U3 
U U U 4 0 6 
UuUhO 1 
0 0 04 0 b 
Uu 04 09 
OuOmIu 
00U4 1 1 
0U04 Ic. 
000413 
0u04 1 h 
000<+ 1 :> 
000416 
UOOhI 7 
0uu4 1 o 
0OG+ 1 9 
000^20 
00O<+2 i 
000^22 
0uO<+2 3 
00042*+ 
0u042b 
0004 2 o 
000427 
00042c 
000429 
U0O43O 
00043 i 
000432 
000433 
U 0 0 4 3 4 
000436 
000436 
00043 / 
0 0 04 3c 
0 0 0 4 3 9 
00044o 
000441 

000444 
000443 
0 0 0 4 4 *+ 
000445 
000446 
00044 7 
000446 


TEST A; 
TEST b: 
TEST C; 
TEST 
TEST 
TEST 
TEST 
TESI 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 


TEST dEF INI T IONS 

bASIo CONTROLLER FUNCTIONS TEST 
wRAPaROUNU WRIT E-READ TEST 
INTEkKUPT TEST 
DISKETTE DRIVE DOOR TEST 
track CAPACITY TEST 
DIAGNOSTIC wRITE-READ TEST 
dYTE ADDRESSING TEST 
sHORl RANGE TEST 
FORCtD ERROR TEST 

FORMAT WRITE-ALL SECTORS* ALL TRACKS 

format read-all sectors all tracks 

wRITl DATA (00000000) ALL SECTORS* aLL TRACKS 

RlAD DATA ALL SECTORS* ALL TRACKS 

WRITE DATA (IllUlll) ALL SECTORS, ALL TRACKS 

READ DATA ALL SECTORS ALL TRACKS 

WRITE DATA (10101010) ALL SECTORS, ALL TRACKS 

keAD DATA ALL SECTORS* ALL TRACKS 

wRITl DATA (RANDOM) ALL SECTORS* ALl TRACKS 

READ DATA ALL SECTORS* ALL TRACKS 

RANDuM SEEKS AND READS 

UPDAIES WRITES (6 RECORDS) 

READ AND VERIFY UPDATED RECORDS 
WRITE DELETED DATA FIELDS 
READ AROUND DELETED DATA FIELD 
READ DELETED DATA FIELDS 


000449 


0000 



ZERO 

EuU 

00 04 3 U 






XLOC 

000451 






XLUC 

000452 

010U 





UKG 

OoG4 5 3 





* 


(J U 0 4 6 4 





* 


000456 





* 


000456 

ulOO 

9800 

192 9 


START 

LDR 

0004 5 ? 

0 10^ 

9970 

0000 



CMK 

0004 5o 

0104 

0981 

0029 



bNE 

000459 

0106 

bC51 




STS 

O 0 O 460 

0107 

82D1 




Lb 


0106 

bOOO 





00046 1 

0109 

0581 

000 A 



bbF 

0 0 0 4 6 c 






Call 


010b 

FBCO 

0003 





0 lou 

D380 

OGOO 

X 




010F 

OF 80 






Olio 

0112 






0111 

1F02 





000463 

0112 

OF 0 1 

FFFF 


to i 

nup 

0 0 0 4 6 4 

0 I i.4 

9570 

b3F F 


NOTE IT 

AND 

000465 

0116 

9 F 00 

1929 



SIR 

0 0 0 4 6 6 

'0118 

9 F4 0 

0 5 2 A 



SIR 

0O046 / 

01 iM 

9 F 4 0 

053E 



STR 

00046b 

01 1C 

9 F 4 0 

1E9E 



STR 

000469 

01 IE 

9F4o 

1EB2 



STR 

0 0 0 4 7 0 

0120 

9 F 40 

1EC6 



STR 

000471 





* 


0004 7^ 






CALL 


0122 

FbCo 

0003 





0 i * 1 4 

D380 

0000 

X 




0126 

OF 80 






012 i 

1BF 9 





0004/3 






CALL 


0 12 b 

FbCo 

0003 





012 A 

U380 

0000 

X 




012C 

OF 80 






012 D 

1C29 





000474 





* 


00U475 





* 

HI 

000476 

012 E 

8740 

17E4 


RERUN 

CL 

0004/7 

0130 

8740 

1 7E3 



CL 

00047b 

0132 

6700 

1927 



CL 

000479 

0134 

6700 

1928 



Cl 

OGO 480 

0136 

9bb0 

024E 



LAb 

000481 

0136 

9F80 

024b 



STB 

G0G<+8<: 

0 1 3 A 

8740 

17E0 



CL 

000483 

0I3C 

1C02 




LDV 

000484 

0 1 3U 

9F40 

17D7 



STR 

000485 






CALL 


013F 

FBCO 

0003 





' 0141 

0360 

0000 

X 




0143 

0F80 






0144 

1627 






***************************** 

2 HISAZ*ZHRTCL*ZHRTCI*ZHRTCC 
ZHCuMM *ZV4TTY 
ZEftu+X'0100• 




SbRl ,<STATUS 
SR 1 * =0 
RERUN 
= $Ri 

= S>R 1 * =Z •8000• 
N0TL1T 

ZVSlR,EO1 * ERO1 


SR1*=Z»63FF* 
$R1 , <STATUS 
SR 1 * 1SATP + iAF 
SRI , ISARP+$AF 
$R1*L20P+$AF 
SR 1*E21P + SAF 
SRI*L22P+SAF 

ZV$kD * MESGA 


GET STATUS 

IS IT A KESTAkT 

DONT SAVE STA1US If RfRUN 

GET CURRENT STATUS 

SEE Check light bit is on 

continue if nut on 
SEND ERROR MESSAGE 


PANEL CHECK LlGH Is ON 

STRIP OFF UNUqLD Bits ANC check LIGHT blT 
SAVE IT 

SAVE STATUS ON KUPt SAVE AREA 


CALL ZV$i.ZVSTC,REMOVE 


DETERMINE RESuURCES 


REMOVE PROGRAM DISkfTTE FROM DRIVE 


000486 


HEKL PROGRAM ASK FOR CHANNEL NuMBER(S) AND POWFR FRQUENCY 
RRR 
RRR+1 
<DR1VA 
<DR1VB 
Sb1 * <INCCA 
SB 1 * <INCD+1 
CHN 

SR 1 * = 2 
SNi*RNG 

ZVSi•ZVSOC*IDRN0 


CALL ZV$ IH * RRR *RNG 


DRIVE A FLAG 
DRIVE B FLAG 


RANGE FOR TWO CHANNFLS 
INPUT CHANNELS A CHANNELS b 






1 If L L. U If' 

lb3 * * K tV t* 
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0 14 3 

hbCu 

0003 








014 7 

0360 

0000 

X 







0 1 *♦ 9 

Of- 60 









014m 

1913 









0 1 40 

1913 







L * 

U U U *+ 8 7 





* 





UUOh6 6 

0140 

9600 

1926 



LDK 

S.K i + <RSTRT 

SEE IF IT A RlSTARt 


000469 

0 1 4 L 

9970 

0000 



CMK 

SR1»=0 



G U U 4 9 u 

0 1 30 

096 1 

001 F 



biMt 

1 Cnu 

D0N1 ASK FREOuENCY TF RESTART PROGRAM 


UUu*+9 1 

013^ 

6 A60 

1926 



INC 

<RS 1KT 

SET FLAG FOR kESTArt 


0 U U 4 9 *. 

013*+ 

6260 

1929 



Lu 

<SThTUS,=Z*2000* 

IS IT 6/40 



0 1 bo 

2000 








U0U493 

0 13 7 

0301 

0014 



Dbl 

ASK 1 

DONT ASk FREQUENCY IF 6/40 


u u u 4 9 *+ 






Call 

2 VS 1#2V$uCiMPJWER 

ASK POWER FREQUENCY 



0 139 

f-bou 

0003 








0 1 3u 

0360 

UOOO 

A 







0 1 3u 

OF bo 









0 1 3 L 

1 OL 5 








U0U495 






Call 

2VSim*2VSID»HLRT2 

SAVL FREQUENCY 



01 5(- 

f-bCo 

0003 








0161 

0360 

0000 

X 







0 1 o 3 

0 F b 0 









0 1 6 h 

1940 








0UU496 

0 169 

9600 

1940 



LuK 

SRl,<hLKT2 

GET FREQUENCY 


0 u 0 *+ 9 / 

0 1 o 7 

9570 

0002 



HUL 

SRU = 2 

CHANGE TO TICkS PER SFC0ND 


000496 

0169 

9 F 0 0 

1940 



SIR 

SRI,<HLRT2 

SAVL IT 


UUU499 

0 1 6D 

OF 6 3 




b 

> I ChG 

60 ON 


GUU300 





# 





OUO 3 O1 

0 16 0 

9 6 70 

0076 


Abk 1 

Luk 

$R1 * = 120 

GET CRYSTAL Clock TTCkS/S 


U U050*: 

0 1 61 

9 F 00 

1940 



STk 

SR1,<HLRTZ 

SAVt IT FOR 6/40 


UUU50;> 





* 





0UU30*+ 

01 7u 

9b00 

1913 


1 CNG 

Luk 

SRI»<RRK 

GET CHANNEL a 


U u U 3 0 3 

0 1 7 *: 

Ad 0 0 

1914 



LDR 

SR2$ <RRR +1 

get channel b 


Uuu 30o 

017*+ 

6201 




Lb 

=$Rii=2*0001* 

SEE IF DRIVE a. IS PRFSLNT 



ol 73 

0001 








0UU30 7 

01 76 

0561 

0005 



bbF 

lCNui 

branch if it is prfsfnt 


000306 

01 7b 

A9 7 0 

0000 



CMK 

$R2*=0 

5EE IF DRIVE o IS PRESENT 


0 0 U 3 0 9 

017M 

096 1 

0 0 01 



bNt 

ICNu2 

BRANCH IF PRESENT 


0UU3 I u 

0 1 70 

6900 

1927 



Lb I 

<DR1VA,=2*0001 • 

OR ELSE SET Nu DRIvF A FLAG 



0 171 

0001 








UUU3 1 1 

0 1 7 h 

965*: 




S^K 

SRI» = $R2 

SWAP TWO CHANNELS 


0UU31l 

0 160 

OF 6 1 

0006 



b 

I CNu2 

GO AND SAVt CmANNLi NUMbLRS FOR A. AND B. 


GUU3 13 

Old*: 

A9 70 

0000 


1CIMC1 

CMK 

SR2 * = 0 

SEE IF CHAN b IS PRFSFNT 


000314 

0 1 64 

0961 

0004 



dnE 

1 CNu2 

BRANCH IF PRESENT 


0 0 u 3 1 3 

0 i d 6 

6900 

192b 



Lb 1 

<DRlVb,=2*0001 * 

OR ELSE SET Nu DR 1 vF R# FLAG 



0 1 dd 

0001 








0003 lo 

0169 

9 F 0 0 

1916 


ICNG2 

Slk 

SRI«<chai 

SAVt channel numbers 


0GU3I 7 

Oldb 

AF 00 

1 9 1A 



SIR 

a>R2 < <CHb 1 



UUOblti 





* HERE 

PRUGkAM REQUESTS FOR THE 

TEST 


0003 1 9 





* 





0u032G 





NLXl 

CALL 

2VSKD*ZVSI2 

(PART OF ZVSRu) 



0 1 60 

FBFo 

oOO 1 








016 6 

0360 

0000 

X 






000321 






CALL 

2 VS1.2V$QC*MNLXT 

NEXT ?; 



0191 

FbCO 

0003 






£ ' 


0193 

0360 

UOOO 

X 





I 


0193 

OF 60 







I 


0196 

1520 







l 

00032*. 

019 7 

9670 

0002 



Luh 

a>Rl * = 2 

EXPECTING TWO CHARa 


000323 

0199 

9F 00 

1942 



SIR 

SRI»<RANGE 



000324 





* 





000323 





NLXTA 

CALL 

ZV$1A»STATA,ANSR,RANGE RLAD THE TEuT 



01 9d 

FbCO 

0003 








0190 

0360 

0000 

X 







0 1 9 h 

OF 60 









0 1 AO 

0702 









0 1 Ai 

194 3 









Ol A*; 

1942 








00032o 

0 1 A3 

6700 

193F 



CL 

<PFl 

CLEAR INDIVIDUAL TfST FLAG 


000327 

01 A3 

b700 

1941 



CL 

<ELF L 

CLEAR PROGRAM FLAG 


0 u u 3 2 o 

01A7 

9600 

1943 



LOR 

SR 1 * <ANbR 



000329 

01A9 

1046 




buR 

SRI ,6 

MOVE ANSWER Tu LOWFR BYTES 


■ 0003 30 

0 1 aa 

9F 00 

1946 



SIR 

SR 1»<SAVEB 

SAVE IT 


000331 

0 1 AO 

9970 

0045 



CMR 

SR 1 * = X•0045 * 

IS IT ELECTRONICS TFST? 


00033*: 

01 Al 

0961 

0006 



bNE 

I CNa 

BRANCH IF NOT 


0 0 0 3 3 3 

0 113U 

6900 

1941 



LbT 

<ELFL,=2*0001• 

OR ELSE SET ELECTRONICS FLAG 



0 1 02 

0001 








000534 

0 1 l>3 

6700 

193F 



Cl 

<PFl 

CLEAR INDIVIDUAL TFST FlAG 


000333 

0 i b3 

0 F6 1 

0046 



b 

I CNF 

CREAT COMMAND TABLF FOR ELECTRONICS TEST 


0009 3o 





* 





0 0 0 3 3 7 

0107 

9970 

0041 


ICNA 

CMK 

SRI»=X*004i* 

IS IT all test 


OOU 3 3o 

"0159 

CT901 

0014 



bt 

1 CANA 

BRANCH IF TRUl 


000339 

Olbb 

9970 

0052 



CMR 

SR 11=X•0052 * 

IS IT read volume TFST 


000340 

0 luD 

0901 

0010 



bL 

ICAnA 

BARNCH IF TRUl 


000341 






CALL 

2VS1•ZVSTCiNOTST 

OR ELSE SAY Nu SUCH TFST 



OlbF 

FbCO 

0003 








0101 

0360 

UOOO 

X 







010.3 

oFbO 









OlC*+ 

1920 








000342 






CALL 

ZVSlR »E02»ER02 

SEND ERROR MESSAGE 



0105 

FbCO 

U003 








010.7 

03d0 

UOOO 

X 







0109 

OFbO 









01CA 

01CC 









OlCb 

1F03 








000343 

010 O 

OF 6 1 

FF CO 


502 

b 

NEXT 

USER ENTERED uNAVAn ABLE TEST NAME 


000 34*+ 





* 





00U343 





* 

HERE PROGRAM DETERMINE 

WHICH DRIVE IS ATTACHFD Tu THE SYSTEM 


00O346 





* 





000347 





* 





000346 

0 1 Ol 

6260 

1927 


1 CANA 

Ld 

<DRiVA,=2*0001* 

SEE IF DRIVE A IS PRFSENT 



0100 

0001 








000349 

0101 

0501 

UUOC 



bbT 

ICNl 

branch if not presfnt 


0003 30 

0 103 

6260 

1926 


ICNC 

Lb 

<DRiVb,=Z»000i* 

SEE IF DRIVE o IS PRESENT 



0105 

0001 








000 9 3i 

0106 

0501 

0003 



bbT 

ICNu 

BRANCH IF NOT PRESFNT 


0003 3*: 

OlOd 

0 F 6 1 

0051 



b 

INC 

GO GREAT COMMAND TABLF FOR ALL AND READ VOLUM 


\ 000353 

010 a 

6740 

173 F 


ICND 

CL 

CHBi 

CLEAR CHAN b. SPINDI E FLAG 

| 

000554 

0100 

0F81 

0U4D 



b 

INC 

GO GREAT COMMmND TARLF FOR "ALL" AND "READ VO 

I 

000553 





* 





- 000556 

OlOt 

6 740 

1739 


ICNE 

CL 

CHAi 

CLEAR CHAN A* SPINoi E FLAG 


000357 

0 1 to 

6260 

1926 



Lb 

<DRiVb*=Z*000l* 

SEE IF DRIVE P IS PRESENT 



0 112 

0001 
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0u033o 

0163 

0381 

0010 



bbF 

ICNk 

BRANCH IF PRESENT 



000339 






CALL 

ZV$ f *ZV$TC*WRONG 

ERROR MESSAGE FOR TLLFOAL CHAN 




01E3 

6 bCU 

0003 









016/ 

D380 

0000 

X 






d "% 


0169 

0680 








f f) 


016A 

1D7C 









000360 






CALL 

ZVS6R*E03*ER03 





0166 

6800 

0003 









0160 

0380 

0000 

X 








0161 

0680 










0160 

01F2 










0161 

1608 









00036I 

0162 

0681 

6 63 b 


E03 

b 

RERUN 

ILLEGAL CHANNtL ENtfRFD* TRY AGAIN 


000366 

0164 

9840 

1723 


1 CNR 

LDR 

SRltCHBI 




OOO 36 3 

0166 

9640 

1721 



SIR 

SR 1 * CHAI 




000364 

0 1 Ftt 

8740 

1721 



CL 

CHBi 




000363 

01 6 M 

0681 

0026 



b 

INC 

ONLY ONE DRIVE - BRANCH 



000366 





* 






000367 





* 

CkEAT 

CONFIGURE FOR ELECTRONICS TEST 



0u036t> 





* 






000369 

016C 

bC80 

1927 


1 CNF 

Lb 

<DRiVA*=Z*000i* 

SEE IF DRIVE A IS PRESENT 




0166 

O001 









00037O 

0166 

0301 

0014 



bBT 

1 CNF 1 

BRANCH IF NOT PRESFNT 



000371 

0201 

9800 

191b 



LDR 

$Ri*<CHAI 

GET CHAN A 



00037 c 

0203 

9A70 

0040 



ADD 

SR1» =X * 0040 * 

great output channfi 



000373 

0603 

9600 

1917 



STR 

$R1»<CHAO 

SAVE IT 



u0037<t 

020/ 

8280 

1928 



Lb 

<DR1VB*=Z«0001• 

SEE IF DRIVE o IS PRESENT 




02 09 

0001 









000373 

020A 

0301 

0013 



bb T 

1CN6 2 

BRANCH IF NOT PRESFNT 



00037b 





* 






000377 

0206 

9800 

1 9 1A 


1CNF4 

LDR 

$Kl*<CHBI 

GET CHAN B 



u0037b 

0206 

9A70 

0040 



ADD 

SR 1» = X * 0040* 

CREAT OUTPUT FOR CHAN B 



000379 

0210 

9600 

1919 



STR 

Skl*<CHBO 

SAVE IT 



000360 

021C 

0681 

0013 



6 

I CNF 3 

GO CREAT COMMAND TaRLF 



U00381 





* 






00038c 

0 6 Lh 

9800 

191A 


I CNF 1 

LDR 

SR 1 * <CHB1 

GET ChAN B 



000383 

02 lo 

9600 

1918 



STR 

SRI,<CHAI 

SAVE IT IN CHhN A 



000389 

OC 1 b 

9 A70 

0040 



ADD 

SRI»=X»0040« 

creat output 



000383 

OC 1A 

9600 

1917 



STK 

SRI»<CHAO 

SAVE IT 



0 0 0 3 8 o 

G21C 

u6 b 1 

6 616 



b 

I CNF 4 

GO ANu GREATCuNFG TAB!E 



000387 

OC 1 6 

9800 

1918 


I CNF 2 

LUK 

SRI,<CHAI 

GET CHAN A 



00038b 

02C0 

9600 

191A 



STR 

SRI »<CHBI 

SAVE IT CHAN b 



000389 

02CC 

9 A70 

0040 



ADD 

SRI * =X•0040* 

CkEAT OUTPUT oHAN FOR B 



000390 

0CC4 

9600 

1919 



STR 

SRI»<CHBU 

SAVE IT 



000391 





* 






00039c 

OCCo 

b360 

1633 


1 CNF 3 

LNJ 

SB3*TCGA 

GENERATE ‘COMMAND TABLF FOR CHAN 

A 


00039.3 

occb 

0681 

0023 



b 

1NC0A 

GO AND SEE ID IS RIGHT 



000399 





* 






000393 

0 C 2 A 

9840 

166D 


INC 

LUR 

sRliCHAI 




U00396 

0 C 2 6 

9 A 7 0 

0040 



AuD 

SR1»=X»40» 

CHANNEL A FOR OUTPUT 



000397 

0226 

9640 

1668 



STR 

$R1 * CHAO 




00039b 

Oc 30 

A840 

i 6E9 



LDR 

sR2*CHBI 




000399 

0C3C 

2901 

0009 



b62 

SR2♦1NCA 

ONLY ONE DRIVt. - BRANCH 



OoooOu 

0234 

A640 

i 6E3 



STR 

SR2,CHBI 

CHN B FOR INPUT 



OOObOl 

0236 

aA70 

0040 



ADD 

SR2 * =X * 40 * 




00060c 

0C3b 

aF40 

16bO 



SIR 

SR2,CHB0 

CHN B FOR OUTPUT 



000603 

02 3 A 

0681 

0003 



b 

INCb 




000609 





* 





VjV , t ; ’ 

OuOb03 

Oc 3C 

A8 70 

8000 


INCA 

LDR 

SR2 * =Z•80 1 

FLAG SAYING ONE DRtvF ONLY 



OOOoOO 

0236 

A6'40 

16DC 



STR 

$R2 * CHN 

STORE IT 



OOQoO / 

0240 

8300 

16 1 b 


1NCB 

LNJ 

$B3 * T CGA 

genlraTl command tarlf for chan 

A. 


OOOoOb 

02 4 2 

9840 

16D8 



LDR 

SRI*CHN 




000609 

0244 

1881 

0007 



bGLZ 

SRi* INCC 

TWO DRIVERS - BRANCH 



0 0 0 o 1 u 

0246 

D3C0 

1C13 



LNJ 

$B3 *CTD 




000611 

024b 

D3CG 

1D68 



LNJ 

SB3♦ CFG 

CONFIGURE.FOR ONE DRIVE ONLY 



OOOolC 

02 4 A 

0680 

024E 


INCD 

b 

< 1 NuCA 




OOOo 13 





* 






000b 19 





* 






000b 1 3 

0246 

D3C0 

1C0D 


HMCC 

LNJ 

SB3 *CTD 

configure for two drives 



000b lb 

0246 

8033 



IIMCCA 

Iu 

= $R3 »CAIID 

ASX FOR CHAN a. Id 




0246 

0040 

1696 








OuOb 1 7 

Oc 3 1 

U 701 

0000 

T 


blOT 

+ $A 




000b lb 

02 3 3 

9 3C0 

196A 



LNJ 

$B1*IOFA 

10 BUSY 



0 0 0 b 1 9 





* 






0U0o2 u 

0233 

D57G 

6668 


SA 

AnD 

sR3 » = Z * FFF8• 




O00o2i 

023 / 

0970 

2010 



CMR 

SR5 * = Z * 2010 * 

COMPARE to DlbKETTF ID 



000o2 c 

0239 

0901 

0000 

I 


bL 

+ SA 




OUOb2 3 

023b 

0681 

0014 



b 

INCCb 




000b29 

Oc 3b 

9840 

16BL) 


8>A 

luk 

SRI*CHN 

LOAD FLAG 



0uUb23 

02 36 

9840 

16 B b 



LDR 

sRI.CHN 

LOAD FLAG 



0UUb2b 

0 C 6 1 

1801 

00 ID 



BLZ 

SR 1»bCC 

ONE DRIVE ONLY 



000627 

02o3 

d03 3 




10 

=SR3*CBIID 

ASK CHAN B. Iu 




0264 

0040 

1686 








U0062b 

0 c 66 

0 701 

0000 

T 


blUT 

+ SB 




000b29 

02 6b 

93Co 

1 98 A 



Lin J 

Sbl*IOFB 

10 BUSY 



G00b3o 





* 






0UUb31 

u2 0 A 

0370 

6668 


Sb 

AND 

SR3,=Z'F6F8« 

MASK OFF ThREc LOW RlTS 



000636 

0260 

09 70 

2010 



CHR 

SRb*=Z»2010» 

COMPARE TO DIoKETTf 



000b 3 3 

0266 

0901 

0010 



bL 

bcc 

BRANCH - 16 Iu IS RIGHT 



000b39 





* 






U0Ub3 3 





INCCB 

CALL 

ZVSI.ZVSTC*CCN 

CHECK CHANNEL NUMbFRS 




02 70 

6 bCO 

0003 









02 72 

0380 

0000 

X 








Oc 74 

U680 










0 2/3 

109 7 









00063b 






CALL 

ZV$lR*E04,ER04 





0 2/ 6 

6 bCO 

0003 









02 7 d 

0380 

0000 

A 








02 7 A 

06 fau 










02 /b 

0270 










02 /6 

160b 









0 0 0 b 3 7 

02 fO 

0681 

FEBO 


E04 

b 

RERUN 

CAN»T READ DEvlCE ID 



000b 3 o 





* 






0 u 0 o 3 9 





* 

HLkl PRUGRAM R6ADS FIRMWARE REV« AND RlC0GNT7F CP TYPE 



000690 





# 






000b91 

02 It 

8 700 

1924 


boc 

Cl 

< C P 6 L 

CLEAR CP FLAG 



0o0o9c 

02b 1 

9800 

1918 



LDR 

SR 1 i <CHAI 




000693 

0cb3 

9470 

0004 



Ok 

SRI * = Z * 0004 * 



Jf > 

0 0 U 6 9 H 

Ocb3 

d03c 




Iu 

= $R2 * = SR1 

READ FROM LOG. 04 


fl 


Ocbb 

0031 









000693 

ocb / 

0 7 00 

028d 



b 10 T 

<6Ci 




0 0 0 6 4 6 

U c b 9 

9 3 Co 

1934 



LNJ 

SB 1 * I UFA 




000697 

02db 

A600 

190C 


bCl 

SIR 

SR2 * < SAVEA 
















i I TLL DlMS3♦•REV E» 
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000648 

0280 

A57 0 

00 Fh 



AND 

$R2 $ = Z•OOFF* 


6U0o49 

028b 

A970 

0020 



CMR 

$R2 * =Z•0020• 

LOOK FOR 6/20 CP CoDF 

000650 

0291 

0904 




UL 

>CP20 

0 0 0 6 5 1 

029c 

8900 

1924 



LdT 

<CPF L«=Z•0001• 

, SET FLAG IF NuT 6-?o 

w % , 

0294 

0001 






I 060654 

029b 

A800 

190C 


CP20 

LOR 

$R2 * <SAVEA 


000653 

02 9 7 

Ab 7 0 

FFOO 



AND 

$R2,=2»FF00» 

GET THE FIRMWARE Rfv. 

000654 

Oc99 

2048 




bUR 

$R2 *8 


000658 

02 9 A 

aFOO 

1922 



bTR 

$R2*<FRMW 


000o5b 

0c9L 

FbCO 

0003 



CALL 

ZV$1• ZViTOMFRMW 

PRINT OUT FIRMWARE RFVlblON 


0c9L 

0380 

0000 

X 






02 AO 

OFbO 








02 A1 

1 94 A 







000657 

02A2 

hbCO 

0003 



CALL 

ZV$ THiFRMW 



02A4 

D380 

0000 

X 






02 A6 

OFbO 








02 a7 

192c 







000658 
0 6 0 6 5 9 

OcAb 

8280 

1941 


**** 

Lb 

<ELhL*=2'0001• 

LOOK FOR ELEC I RON Ir.S TEST 


Oc aa 

0001 






000660 

000661 

02 Ao 

0501 

0033 


* 

bbT 

INI TZ 

BRANCH IF TRUl 

OOOl.64 

02 AO 

9800 

1946 



LOR 

$R1* <SAVtB 

GET TEST TYPE 

000663 

0 2 Ah 

9970 

0041 



CMR 

$R1 * = X' 0041 • 

IS IT ALL TESI 

000664 

02b i 

098 1 

000 7 



bi^t 

RDVi 

BRANCH IF NOT 

0O0665 

Ocbb 

8 700 

193b 



CL 

<PFl 

CLEAR TEST FLmG 

00066b 

0 2 bb 

8700 

1941 



CL 

<ELFL 

CLEAR ELECTRONICS FI AG 

00066 7 
00066o 

02d 7 

0F8 1 

002 7 


* 

b 

INI1Z 

GO ANO DO ELtuTRONTCS TEST 

00066b 

Ocbb 

9970 

U0b2 


ROvl 

CmR 

$R1«=X'0032• 

IS IT READ VOLUME 

0006 70 

Ocbb 

0901 

0010 



bt 

RDV2 

BRANCH IF TROt 

000671 

OcbO 

fbCo 

0003 



CALL 

ZV$T•2V$TC♦N01 ST 

OR ELSE NO SULH TEST 


Ocbh 

0380 

oooo 

X 






020 

OFbO 








020 

1920 







0O0o7c 

020 

hbCO 

0003 



call 

2V$ER*E05»LR05 

SEND ERROR MESSAGE 


OcLb 

0380 

OOOO 

X 






OcO 7 

Oh 80 








02Co 

0 2C A 








OcCb 

1 h OL 







0006 II 

02CM 

Oh 8 1 

h L63 


LOb 

b 

RERuN 

WRONG ENTRY Oh test name 

UOUo 74 

0200 

8900 

1 9 3 F 


RDV2 

Lb7 

<PFl,=Z'0001• 

SET TEST FLAG 


02 OL 

0001 







OOOo 7b 

020h 

hbCO 

0003 



call 

ZVS.I .2V$TC,RLA0 

READ VOLUME Mc.SSAGf 


0201 

0380 

OOOO 

X 






020b 

Oh 80 








02 04 

1C49 







00067b 

02 Db 

b3C0 

14L7 



lnj 

$B3»RPD 

GO READ THE DiSKETTF VOLUME 
END-Of-TEST MlSSAGf 

0006 n 

02 0/ 

FbCO 

0003 



call 

ZV$I.2V$TC*MESGN 


0209 

0380 

OOOO 

X 





l 

020b 

OF 80 







I 

OcOO 

1C43 







1 0006 7b 

0200 

0 F 8 1 

h L50 



b 

RERUN 

ASK FOR NEXT IEST AFTFR READING 

00067b 





* 



00068U 





* 


INITiALIZATION 


000681 





* 




UUOotitC 

02 Oh 

1 C 1 4 



IN1TZ 

LOV 

$R1 * = 20 

START WITH LEVEL 2o ISA 

000683 

62 tU 

AB80 

OOOO 

A 


LAb 

$B2 *<ZHISAZ 

OOObBn 

0 2 L2 

ObCO 

1C04 



LA b 

$B5 *L20D 

LOAD ADDRESS uF LEv 20 iSA 

00068b 

0214 

OFOL 




bl b 

$B5 *$B2**$R1 

SET IV FOR LLvE 20 

000686 

OcLb 

ObCO 

1CE7 



LAb 

$B5,L21D 

LOAD ADDRESS uF LEvFL 21 ISA 

000687 

02L 7 

OFOL 




STb 

$B5 *$B2*«-$R1 

SET IV FOR LEVEL 2i 

00068b 

02L8 

ObCO 

1 CF A 



LAb 

$B5 »L22D 

LOAD ADDRESS OF LEv 2? ISA 

00068b 

0 2 L A 

0F92 




bib 

$65 * $b2• $R 1 

SET IV FOR LEvEL 2? 

000690 

OcLb 

987u 

0014 



LOR 

$R 1 * = 20 

000691 

02 LO 

9F00 

OOOO 

X 


bTR 

$R1,<ZHRTCL 

SET CLOCK INTlRRUPt LFVEL 

00069c: 

02th 

9bC0 

1008 



LAb 

$B1 * LEV20 

SET ENTRY POInT OF | EV 20 

00069b 

02hi 

9F CO 

1CC8 



bib 

$61*L20P 

FOR CLOCK TIMt OUT FNTRY 

0 0 0 6 9 h 

Och 3 

ObCO 

0017 



LAb 

$B5*bAS 

SLT P REGISTER FOR | EVEL 22 

00069b 

02 hb 

OF CO 

1CF0 



STB 

$B5,L22P 

STORE IT 

00069b 

02h / 

9bCu 

1008 



LAb 

$B1*LEV21 

GET ADDRESS Oh LEVFl ?1 P-REGISTER 

006697 

0ch9 

9FCU 

1C06 



bib 

$61*L21P 

PUT IT IN LEVlL 21 P-rEG* 

00069b 

02h b 

8700 

OOOO 

X 


Cl 

<ZHiAFB 

BE SURE NOTHING IS SET TO RUN 

000699 

02 h 0 

9846 

1OOA 



LOR 

$R1iA4 

A4 LEV ACTION 

000 7 00 

02h h 

9470 

00 1 6 



OR 

$R1i=22 

LOAD IT WITH LEVEL 22 

0007 0i 

' 0 301 

8E51 




LEV 

= $R X 

PROCEED TO LEVEL 2? 

00070c 

0302 

FbCO 

0003 



CALL 

ZV$LR*E06iER06 

CAN'T CHANGE LEVEL o 


03UA 

0380 

OOOO 

X 






0306 

OFbO 








036 7 

0309 








0308 

i F 1 1 







OoO 7 0b 

0309 

OF 8 1 

F Oh 6 


L06 

b 

STAkT 

RUN CP TEST bLFORE PROCEED 

00u7 Oh 





* 



00070b 





* 




000 70o 
0 00 70 7 





* 




00070o 





* 




00070b 





* 

b 

ASIC contr 

OLLER FUNCTIONS TEST 

00O '710 
0 0 0 7 1 l 





* 




000 / U 





* 




OOU 7 18 

030b 

8 7 40 

lbFA 


bAb 

CL 

TRNO 

ZERO OUT TRACK 

000 / 14 

0360 

8 740 

lbFb 



Cl 

SEC I 

ZERO OUT SECTOR 

000 I lb 

030h 

FbCO 

0003 



CALL 

2V$i .ZVSTOTSTA 



6311 

0386 

6000 

A 






0313 

OF 80 








0 8 1 A 

196b 







000 / 16 
00071 / 

03 1b 

L3C0 

1196 


* 

LNJ 

$B4,FCWA 

FORM CONFIGURATION WORDS 

0007 1b 

6317 

8040 

lbFO 



lu 

CWAo,CAOWA 

SEND OUT WORD A TO THAN A 

r ■. 

0319 

0040 

ibC4 





1 0 0 0 i 1 b 

031b 

0701 

OOOO 

T 


blOT 

+ $A 


1 ,/ 000 7 20 

000 721 

0310 

93C0 

18 AO 


* 

LNJ 

$bl,IOFA 


00072c 

031 h 

8040 

15EA 


$A 

io 

CWBO * CAOWB 

OUTPUT CONFG wRD.B TO CHAN A 
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034 1 

0040 

15bO 






000 /48 

03^3 

0 701 

0000 

I 


bio I 

+ $b 


OOU / 24 

0343 

9300 

1898 



LNJ 

SB1 * 1OFA 


OUU/23 





* 




000 /2o 

032 / 

8055 



Sb 

10 

= $R3 *CAItoA 

INPUT CONFG WkD«* A FROM CHAN A 


034b 

0040 

1 5bA 






OUU727 

034 A 

0 701 

0000 

T 


diUT 

+ SC 


0 0 U 7 2 o 

0320 

9 3C0 

1691 



LNJ 

sbltlOFA 


u U 0 7 2 V 









OuO 7 3u 

0 3 41 

5901 

0000 

T 

SC 

bo2 

SK5 * + SD 

BRANCH - IF CuNFG A. IS RIGHT 

000731 






CALL 

ZVSlR*E07,ER07 

REPORT ERROR 


0330 

FbCO 

0003 







0334 

0380 

0000 

A 






0 3 34 

OF 80 








0335 

033 / 








0336 

IF 14 







OUO 734 

033 7 

OF 01 

FFFF 


607 

NuP 

s 

GO ANO REPORT ERROR IF WRONG 

U 0 0 7,3 3 





* 




U0uY3h 

0 b 3 9 

8035 



SO 

Iu 

= Sk3 «CAiWB 

INPUT CGNF• WkD B FROM CHAN A 


033A 

0040 

13A9 






000/33 

0330 

0 701 

0000 

I 


biOT 

♦ St 


0 0 0 7 3 o 

0 3 3 L 

93C0 

16 7 F 



LiMJ 

SB 1 * IOFA 


0 o u 73 ( 





* 




000 /3o 

034U 

3901 

0000 

1 

St 

bi_6 

SR5,+SA 

BRANCH - IF CuNFG A. IS RIGHT 

UOO /39 






CALL 

ZVSlR *L08 *EROb 



0342 

F6C0 

0003 







0344 

0380 

0000 

A 






0346 

OF 60 

' 







034/ 

0349 








03Ab 

IF 17 







000 /4U 

0349 

0F01 

FFFF 


606 

nup 

s 

WRONG CONFG, wORD FROM CHAN A. 

U 0 0 7 4 1 





* 




000 /44 

0 34o 

9870 

004C 


sA 

Luk 

SRI*=Z»004C» 

TRACK NUMBER NUMBER 

0 0 U 7 4 3 

0340 

9F 40 

1568 



SI k 

SRI*T RNQ 


00074h 

0 3 a H 

9670 

0019 



.LOk 

ski*=Z*0019' 

SECTOR NUMBER 

OOU 7 43 

0 b5 i 

9F 40 

1367 



si k 

ski*SECT 


000 7 46 

0353 

C3C0 

1136 



LNJ 

SB4♦ F CW A 

FORM CONFIG WuRDS 

OOU / 4 / 





# 




00074b 

0353 

8040 

1362 



10 

CWAu*CAOWA 

OUTPUT CONFIG WORD A TO CHAN A 


033 / 

0040 

1386 






000/49 

0339 

0 701 

0000 

1 


blOT 

♦ SC 


OOU 7 50 

0 3 3o 

9 3 CO 

1862 



LNJ 

SB 1 * IOFA 


000751 





A 




0 0 0 7 5 

0350 

6000 

190A 


sc 

iu 

<CWt>Di <CAOWB 

OUTPUT WORD b TO CHAN A 


033F 

0000 

1 8DF 






OuO / 5 3 

0361 

0701 

0000 

T 


biOT 

♦ S c 


000 /54 

0363 

93C0 

165A 



LNJ 

SBltlOFA 


0 0 0 7 5 3 





* 




0 0 0 7 5 o 

0365 

6055 



SC 

10 

= SR3 ♦ <CA 1 WA 

INPUT WORD A FROM CHAN A 


0366 

0000 

16L3 






000757 

0368 

0701 

0000 

T 


blur 

+ $D 


00075b 

0 36 A 

9 3C0 

1633 



LNJ 

SBltlOFA 


000/59 





* 




000760 

0360 

0970 

4C00 


so 

CMk 

$R5,=Z*4C00« 

COMPARE OUTPUT TO INPUT 

000761 

036L 

0901 

0000 

T 


bo 

♦ SE 

BRANCH- IF RIuHT 

000 764 






CALL 

ZVStk*E09*ER09 



03/0 

FbCO 

0003 







0374 

0380 

0000 

A 






0 3 74 

OF 80 








0373 

037 / 








0376 

1 F1A 







000 7Ob 

0 3 / 7 

OF 01 

FFFF 


t09 

NUP 

S 

WRONG CONFG. wORD A. FROM CHAN A 

0 0 0 7 6 





* 




UOO /63 

03/9 

6055 



St 

10 

= Sk3 * CAIWb 

INPUT WORD B FROM CHAN A 


03/ A 

0040 

1369 






OOU /66 

03/C 

0701 

0000 

T 


biOT 

♦ SF 


000 /6? 

03/0 

93CU 

1 b3F 



LNJ 

SBUIOFA 


000 /6b 





* 




000 76v 

0380 

0970 

1900 


SF 

CMk 

SR5*=Z*1900* 

COMPARE INPUT TO OUTPUT 

000 /7u 

0382 

0901 

000 A 



bt 

bCCd 

BRANCH-IF RIGnT 

000/71 






Call 

zvs6k,tio»tkio 

REPORT ERROR 


0384 

FbCO 

0003 




- 



0386 

0360 

0000 

A 






0388 

OF 80 








0 3 89 

038b 








U36A 

1 F10 







00077^ 

038b 

OFOl 

FFFF 


E10 

NuP 

s 

GO AND REPORT ERROR IF WRONG 

000773 





4 




0007 7 h 





* 




000 7 73 

0380 

81C8 

1580 


beeb 

lULD 

*bFAO fCAOLDiBRDT 

OUTPUT AODRESu AND RANGE 


03bh 

0040 

134C 







0391 

0040 

1796 




■ 


OUO / 70 





A 

BkOT CONTAINS BYTES FOR DIGNOSTIC READ TRACk 

000777 

0393 

0 701 

0000 

1 


biul 

♦ SA 


UUO77 o 

0393 

93C0 

1828 



LNJ 

Sb1 * IOFA 


UOO 779 





* 




uuo / 8o 

039 / 

8055 



SA 

Io 

= Sk 3 * CAIlk 

input range from chan a. 


0398 

0040 

1549 






000781 

0 3 9 A 

0 701 

0000 

T 


D 1 01 

♦ Sb 


000784 

0390 

93C0 

1821 



LNJ 

SBlilDFA 


000 /83 





* 




0 0 0 7 8 <+ 

0390 

09 70 

1318 


Sb 

CMK 

SR5»=Z*1318* 

COMPARE INPUT TO OUTPUT 

000 /85 

03 AO 

0901 

0000 

T 


Dt 

♦ SC 

BRANCH-If RANuE IS RIGHT 

000 7 86 






CALL 

ZVStR *E11*ER11 

REPORT ERROR 


03A2 

FbCO 

0003 







03A4 

0380 

0000 

A 






0 3 Ao 

OF 80 








0 3 A/ 

03A9 








03 Ab 

IF 20 







000 787 

03A9 

OFOl 

Ffff 


til 

NOP 

s 

WRONG RESIDUAL RANgf AFTER IOLD 

000 788 





* 




000789 

03 Ad 

8755 



SC 

CL 

= $R3 


0 0 0 7 9 0 

03 AO 

61C6 

1561 



I OLD 

*BFaD * CAOLDi = SR5 

OUTPUT ADDRESS AND RANGE TO CHAN A 


03 Al 

0040 

1320 







0300 

0055 







000/91 

0361 

0701 

0000 

T 


BIOT 

♦ SO 


000794 

0363 

93C0 

1 80 A 



LNJ 

SB 1 * 1OFA 


000/93 





* 




000/94 

0363 

6053 



so 

lu 

= $R3fCAHR 

INPUT RANGE 


03d6 

0040 

132b 






000795 

03bb 

0701 

0000 

T 


biOT 

♦ St 


000 796 

03bA 

93C0 

1803 



LNJ 

SbUIOFA 


000 797 





* 









i 1 TLt DlMS3,»KtV t* 


PAGE 


11 



OOO ( 96 

0 3dC 

5901 

000 A 


St 

titZ 

SR5 * INCbX 

000 799 






CALL 

tV$LR*t!2*ERl2 


U 3b t 

F l>CU 

OO03 






03Cu 

D3bO 

0000 

A 





03CL 

OFbO 







03L3 

03C3 







G3C4 

1 F 2 3 






0 U 0 6 0 U 

0303 

OF 01 

F FFF 


fc-12 

NOP 

s 

0 0 0 cl 0 J. 





* 



ouutJO-c: 








UUUb03 

0 3l 7 

6053 



1NCBX 

Iu 

=SR3,<CBI1D 


030b 

0000 

16 F 4 





OOOoOh 

03CA 

0 701 

0000 

1 


blur 

4 S F 

UUUb03 

0 300 

93LO 

1 7 F 1 



LNJ 

Sbl,IOFA 

0 0 0 0 0 0 





* 



uuOoO/ 

0 3lE 

0370 

FFF8 


SF 

AND 

SR5*=Z*FFF8» 

UUUbUo 

03D0 

0970 

2010 



CMR 

$R5,=Z*2010» 

ooobOy 

03Dt 

0901 

0000 

1 


bt 

4 $A 

oooo 1 u 






CALL 

ZVSI.ZV$TC,CCN 


0609 

FbOO 

0003 






0306 

03 bO 

0000 

A 





0306 

0 F b 0 







0 3 09 

1097 






UOOo 1 i 






CALL 

ZVStR *E13*ER13 


0 3 DA 

FbOO 

0003 






0300 

0380 

OU0O 

A 





0300 

OF 80 







0 3oH 

03E1 







03t 0 

IF 2 6 






OOUb li. 

03c. i 

0 F 8 1 

FE8E 


E 13 

b 

INCub 

000 b1 3 





* 



UUUo 1 4 

0303 

9640 

153 7 


SA 

LDK 

SRI»CHN 

0 0 0 0 1 3 

0 3 0 5 

1801 

OODb 



bLZ 

SR1*BASC 

000b 1 6 

03o 7 

8055 




Iu 

=SR3,CbIID 


03tb 

0040 

150b 





000b1 7 

0 3Ea 

0701 

0000 

r 


blOT 

4$b 

000b lb 

0300 

9300 

17 D1 



LNJ 

Sbl»1 OFA 

0 0 01> 1 9 





* 



0u0b20 

0 3 0 L 

0370 

FF F 8 


Sb 

AND 

SR5 » =Z * FFF 8 * 

000c2 i 

G3F U 

09 70 

2010 



CNR 

$R5*=Z»2010» 

000b2^ 

031-4 

0901 

000 A 



bt 

bCCA 

0 0 0 b 2 3 






CALL 

ZVStR »E14 1 ER14 


0 3 F 4 

FbOO 

0003 






03Tb 

0380 

0000 

A 





03Kb 

OFbO 







03h9 

0 3 F b 







03T A 

1F 2 9 






000g24 

03Fd 

OF 6 1 

Ft 74 


11 4 

D 

INCCb 

0UUb2 3 





* 



000b2b 

0 3 Fo 

8740 

1508 


bccx 

Cl 

TRNO 

0 0 0 0 2 7 

03FF 

874U 

1309 



CL 

SEC1 

000o2b 

040 1 

0300 

IOAa 



LNJ 

Sb4,FCWA 

000b 2 0 





* 



000b3o 

0903 

6040 

1504 



10 

CWADtCBOWA 


04 0 3 

0040 

14t 6 





000831 

090 7 

0701 

0000 

T 


blOT 

4 SC 

U00b3^ 

0909 

9300 

17B4 



LNJ 

SB 1»1 UFA 

000533 





# 



0 u 0 o 3 4 

09Ub 

6040 

14F t 


sc 

10 

CWbD»CBUWb 


0900 

0040 

14DF 





OOOo 3 3 

U40F 

0701 

0000 

T 


blOT 

4$D 

000b3b 

0911 

9300 

1 7 AC 



lnj 

Sbl 1 IOFA 

0 u 0 b 3 / 





* 



OO0b3b 

0413 

8055 



SD 

10 

= $R3 $ CbIWA 


0414 

0040 

14DC 





OOUb 39 

0416 

0701 

0000 

T 


blOT 

4 $ E 

OuObAO 

04 1 0 

9300 

1 7A5 



LNJ 

Sbl,IOFA 

U0Uo4i 





* 



0uuo4<: 

04 1A 

5901 

0000 

1 

SE 

btZ 

SR5,4SA 

000643 






CALL 

ZVStR *El5*tRl5 


0410 

FbOO 

0003 






0410 

D360 

0000 

A 





0420 

OF 60 







0421 

0423 







0422 

1 F 20 






00064*+ 

04Z3 

OF 01 

F FFF 


E13 

NuP 

S 

000 b A 3 





* 



U00o46 

044 3 

8055 



SA 

IU 

=SR3,CBIWB 


0446 

0040 

14CB 





0 0 0 b 4 7 

042b 

0701 

0000 

T 


blOT 

4SF 

000o4b 

04 > a 

9300 

1793 



LNJ 

Sbl ♦ IOFA 

000649 





* 



OOObSu 

0420 

5901 

0000 

T 

SF 

btZ 

SR5 1 4SA 

QOOb 5i 






CALL 

ZVStR »E16»ER16 


0420 

FbOO 

0003 






0430 

0360 

0000 

A 





0432 

OFbO 







0433 

0433 







0434 

1F2F 






00063^ 

0436 

OF 01 

FFF F 


E16 

NuP 

S 

000633 





* 



000b34 

04 3 7 

9870 

004C 


SA 

LDR 

SR 1 * =Z•004C• 

00Ob33 

0439 

9F40 

14CC 



STR 

SR 1 * TRNO 

000b5b 

043b 

9670 

0019 



LDR 

SR1 * = Z * 0019 * 

OOOb57 

0430 

9F40 

14Cb 



STR 

SRI » SECT 

000b 5b 

04 3 F 

0300 

106C 



LNJ 

Sb4 « F CWA 

000659 





* 



000660 

0441 

8040 

14C6 



IU 

CWAd * CBOWA 


0443 

0040 

14A8 





000661 

0443 

0701 

0000 

T 


biUT 

4SA 

O 0 G 664 

044 7 

9300 

1776 



Lnj 

Sbl * IOFA 

0uOb63 





* 



000b64 

0449 

8040 

14C0 


SA 

iu 

CWBd » CBOWB 


04413 

0040 

14A1 





000b63 

0440 

0701 

0000 

T 


blOT 

4 $b 

0O0b66 

044F 

9300 

176b 



LNJ 

SBl,IOFA 

000667 





* 



000b6o 

0451 

8053 



Sb 

10 

=SR3,CBIWA 


0452 

0040 

149E 





000669 

04 34 

0 701 

0000 

T 


BIOT 

4SC 

000670 

0436 

9300 

1767 



LNJ 

Sblf IOFA 

OOObT1 





* 



000674 

045b 

0970 

4C00 


sc 

CMR 

SR5»=Z»4C00* 



OR ELSE WRONG COFG. WORD B. FROM CHAN b 

TRACK 

SECTOR 

FORM CONFIG WORDS 

OUTPUT CONFIG WORD A TO CHAN B 

OUTPUT WORD B TO CHAN B 

INPUT WORD A FROM CHAN b 

COMPARE OUTPUI TO INPUT 




1 I TLt Oi<nS3 9 •REV E» 
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U UOijfj 
OOOb74 


00087b 
000b76 
0 u 0 8 7 7 

0 6 0 8 7 8 
000o79 
uuubbu 
00Gb8 1 
00088 *. 
0 0 0 8 8 3 


00088*+ 

OOOubb 

000886 

000887 


00088b 

6U6889 
UUU696 
0U0b9i 
00069*: 

UU0693 

0u0b9*+ 

00U895 

000896 

000697 

006898 


0 U 0 6 9 9 
000900 
OUO 9 OI 
00090*. 


OOO 9 O 8 
0009 0 *+ 
6 U 0 9 0 b 
OUU906 

0U090 l 
0U0906 
000909 
OOO 9 1 o 
0009 1 i 


0u09 1 4 
0UU9 13 
0009 1*+ 


0*+b A 

0901 

0000 

T 

04bU 

FBCO 

0003 


0*+b t 

D380 

0000 

X 

0460 

OF 80 



0461 

0463 



0464 

1 F 3 2 



0463 

OF 0 1 

FFFF 


046b 

bOSb 



04 6 6 

0040 

148b ' 


0466 

0701 

0000 

T 

046 A 

9 3C0 

1753 


046C 

D970 

1900 


046c 

0901 

OOOA 


0470 

FbCO 

U003 


04 72 

D380 

0000 

X 

04 7<+ 

OF 8 0 



04 7 S 

04 77 



047 6 

i F 3b 



64 7 f 

OFO 1 

FFFF 


04 7 9 

01C8 

1494 


04 7 b 

U040 

146F 


04 7D 

0040 

i 6AA 


04 7F 

0701 

uooo 

T 

G*+b 1 

9 3C0 

173C 


6483 

80bb 



0484 

0040 

146b 


6486 

0701 

OOUO 

T 

6488 

9 3L.U 

1735 


04b A 

D970 

1318 


04 bL 

0901 

UUOO 

T 

0 *+ 8 E 

FBCO 

0003 


0490 

D380 

0000 

X 

0492 

0F80 



0493 

0495 



0494 

i F3b 



049b 

0 F 0 1 

FFFF 


0497 

8 755 



6498 

blCb 

1475 


649 A 

0040 

1450 


6*+9C 

OObb 



649 u 

0701 

0000 

r 

04 9 F 

93C0 

17 IE 


04A1 

bObb 



0*+A*: 

0040 

144D 


04 A*+ 

0701 

UOOO 

T 

04A6 

93C0 

1717 


04 A b 

5901 

6015 


04 A A' 

FbCO 

0003 


04 AC 

D380 

0000 

X 

04 Al 

OF 8 0 



04 AF 

0461 



6460 

1 F 3b 



04 b 1 

OF b 1 

OOOC 



000931 

06093*. 

00093b 

uuu93*+ 

00093b 


6 6 0 9 3 0 

64Cb 

9b80 

1C5E 

000937 

0*tLA 

.9F8U 

1573 

00U93o 





6*+LC 

FbCO 

0003 


0*+Cl 

D380 

0000 


04 Du 

OF 80 



U4D1 

19 78 


60U939 




0 6 6 9 4 6 

64D*: 

9b80 

i C59 

000941 

0*+D*+ 

9F80 

1573 

06094*. 

0466 

F 8 70 

0200 

00094„> 

0*+68 

8 751 


U 0 U 9 4 4 

6469 

8 7 4 6 

143C 

000949 

04Db 

9 F 48 

1433 

0 0 0 9 4 o 

04DU 

9876 

F 800 

U U U 9 4 7 

6*+DF 

9F 48 

1421 

U U 0 9 *+ 6 

64E1 

9870 

0001 

000949 

0413 

9F40 

1431 

006956 




060951 

04L5 

8 1C8 

1428 


04E 1 

U040 

13F 4 


E17 

* 

$D 


* 

$E 


bt 

CALL 


NOP 

10 

BiOT 

LNJ 

CHK 

bt 

call 


E18 NOP 
* 

* 

bCCBX 1OLD 


+ $D 

ZV$LR»E17,ER17 


$ 

= $Rb *CBIWB 
♦ $E 

SBUIOFA 

$R5 9=Z * 1900• 
BCCt>X 

Z VSER 9 EI 89 ERI 8 


*BFAD»CBOLD*BRDT 


BRANCH - IF RIGHT 
REPORT ERROR 


OR ELBE WRONG CONFg. WORD FROM CHAN B 
INPUT WORD B FROM CHAN B 


COMPARE INPUT TO OUTPUT 
BRANCH-IF RIGHT 
REPORT ERROR 


OR ELSE WRONG CONFg. WORD b FROM CJAN b. 
OUTPUT ADDRESS AND RANGE 


but contains bytes for diagnostic read track 


* 

$F 


* 

$A 


BIOT 

LNJ 

iu 

blOT 

LnJ 

CMR 

Bt 

CALL 


f$F 
$B1 * 1OFA 

= $Rb 9 CBIIR 

♦ $A 

$b1*1OFA 

$R5 * = Z•1318• 

+ $b 

ZV$tR t£l9»ER19 


E19 

NOP 

$ 

* 

$B 

CL 

= $Rb 


1ULD 

*BFaD 9 CBOLD 9 = $R5 


bior 

-+SC 


Lnj 

$B1 9 IOFA 

* 

$C 

10 

= $R b 9 C61IR 


diot 

+ $D 


LNJ 

$61 9 10FA 

# 

$D 

btZ 

$R5 9 BASC 


Call 

ZV$tk9E209ER20 


LZO 

* 

* 


b ASC 


6069 1 b 




* 

TImEOuT 

ROUTINE 

U 6 U 9 lo 




* 



0669 1 l 

04b3 

1701 

0002 

1 FiO 

bDEC 

$R1 9 TMOA 

00691b 

0*+d5 

8381 



JMP 

$B1 

U009 19 

U *+ bo 

A870 

0062 

TMOA 

LuR 

$R2,=178 

660 9 2 U 

04bb 

2 701 

0003 

T MOB 

BdEC 

$R2 9 TMOC 

606921 

64 DA 

OF 8 1 

FFFb 


b 

T MO 

66692c 

04BC 

0 F8 1 

FFFB 

TMOC 

b 

IMOd 

0 0 U 9 2 S 




* 



0 009 2*+ 




* 



00692b 

64 Dt 

8280 

193F 

BASC 

Ld 

<PFL9=Z»0001• 


64CU 

0001 





U609Z6 

U4C1 

0 5 00 

0180 


bbl 

<NExT 

6 0 U 9 2 7 

0*+C3 

8280 

1924 


Ld 

<CPFL9=Z»0001 


04Cb 

0001 





606928 

606929 

UU093U 

04Lo 

0381 

UOAC 

* 

*-- 

BbF 

INT 


INPUT RANGE FROM CHAN B 


COMPARE INPUT TO OUTPUT 
BRANCH - IF RiGHT 
REPORT ERROR 


WRONG RESIDUAL RANf,F fRuM CHAN B 
OUTPUT ADDRESs AND RANGE TO CHAN B 

input range from chan b 


BRANCH-IF RANvaE IS RIGHT 
OR ELSE REPORT ERROR 


OR ELSE WRONG RESIDUAL RANGE FROM CHAN B. 


IF R1 = 1 * DELAY IS 1 MILLISECOND 


IS IT 6/20 

DONT DO WRAPAkOUND TF 6/20 


WRAPAROUND READ/wRITf 


WAW 


LAb $B1 9 <I Mb 

Sib $61 9<DEXb 

Call ZVST•ZV$TC*TSTb 


WAWR 


lab 

ST b 

LDK 

Cl 

CL 

STR 

LDR 

STR 

LDR 

STR 


wAwRA I OLD 


SB 1 9 < IMA 
$61 9 <DEXB 
$R7 »= X•0200• 

= $Ri 
TEMP 

$Ri,*kBUP 
$R1 9 = Z * F800 * 

$R19*BFAD 
$R1 9 =X•01• 

$R1*RNG 

*BFaD»CAOLD«RNG 


CLEAR INPUT buFTER 
DATA PATTERN iN HEX 
PUT IN WRITE BUFFER 
RANGE 


OUTPUT ADDRESS AND RANGE 
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( 



04b9 

U040 

142b 

000952 

U4ED 

0781 

FFF9 

0G09 b 3 




(JUU9b4 

0 4 E D 

6040 

1413 


04EF 

0040 

13Eb 

uUU9bb 

O^F 1 

0 701 

0000 

0UU9 bo 

04 F 3 

93C0 

16CA 

000957 




0U09 5o 

U4F b 

9670 

0004 

UUU9b9 

04F 7 

9 3C0 

FFbb 

0U096U 

0*+F 9 

bObb 



U4F A 

0040 

13E7 

UUU961 

04 F L 

0781 

000b 

UUU^ be 

U*+F t 

b98 1 

00b 2 

000^63 

ObUU 

0F8 1 

001b 

UUOv64 

ObOZ 

8 ACO 

1413 

0UU96b 

UbU4 

C840 

1411 

OUU960 

050b 

C970 

0003 

00096 7 

us08 

0381 

FFFO 

00096o 

ObOA 

0F81 

005 A 

000S69 

GbUu 

8 ACO 

1409 

0 0 0 9 7 0 

UbUL 

C840 

1407 

000971 

ubio 

C970 

0003 

000974 

Obit 

0381 

Ou 1 V 

000973 

Ob 1 h 

OF 8 1 

0050 

U00974 




UU09 7 b 




000976 




U0U97 7 




0 U 0 V 7 0 

C b 16 

6 1 C8 

13F8 


U b 1 6 

0040 

13C4 


UblA 

0040 

13FA 

UOO 97 v 

Ob 1 C 

0781 

FFF9 

0uU98O 

Obit 

8740 

13F7 

000981 




000984 

0620 

8040 

13E0 


Ob22 

0040 

13b8 

UUUV8J 

0b24 

0701 

0000 

000484 

US2b 

93CU 

169 7 

00 u 98 b 




U00986 

OSLO 

9870 

0004 

0UO9S7 

Ub2 A 

93C0 

F F 88 

OUU 480 




OU 0 4 8 9 

Ob2 C 

bObb 



0b2D 

U04U 

13B4 

0U049O 

0S2F 

0781 

FF DC 

U U 0 4 9 1 




000994 

OS 3 1 

b9b 1 

001 F 

00099j 




000994 

0S33 

984b 

13DB 

00099b 

Ub3b 

9970 

F 800 

00O49U 

0S37 

0901 

0007 

00099 7 

Ub 39 

9970 

F F 0 0 

000996 

UbiD 

0901 

0003 

000999 

US3u 

83C0 

00 1 D 

001Uuu 




0U1001 

ub3F 

9 84 U 

13Cb 

00100^ 

0S41 

1 AO 1 

000b 

00100j 

0S4 s 

9A70 

0001 

ooiuOh 

Ub4b 

9 F 40 

1 3Cb 

001006 

0 b 4 7 

9870 

FFFF 

UU1006 

0b49 

9 F 4b 

13C4 

UU 100 7 

0 S4b 

01 bl 

F F 9 9 

001uOo 




OU1009 

ub*tu 

770 1 

F F8A 

00 1 0 1 0 

0 b*+F 

0 F 8 O 

0b6t 

OUlul 1 




UUlUlL 




Uu10 1 3 




UU1U 1 4 




uu1016 

0 b b 1 

8040 

13bi 


Gsb3 

0040 

136b 

UO1 0 1 0 

Ubbb 

0 701 

0000 

U U 101 7 

Ubb 7 

93C0 

1666 

uululo 




Oululv 

Ubb4 

0 F 81 

000b 


UU 1 UZu 
UUiU2i 
OU 102<l 
uuiU2s 
001u2h 
uuiu2s 
uulu2o 
00102 7 
uulu2u 
001U 2 9 
UU1u3U 
0 U i u 3 i 
Uu1u3c 
U u 1 u 3 3 
UU i u3*+ 
Guiu3S 
Uu1u3o 


uSSd 

USSD 

ObbF 

USbi 

ObbS 


9840 13bU 
iAO 1 u007 
9A7U UUOl 
9F40 13AA 
OF81 FI-74 


UUiu4u 
0 u 1U 41 
UOiu4i 
UU1U43 
00104*+ 
0 U 1U *+ b 
UuIUHd 
UU1u4 7 
UU 1 U4o 
UU1U4V 
U U 1 U b U 


$C 

WAWRD 


WAwRE 


WAWRF 


* 

* 

* 

* 

WAWRC 


* 

WAC 


WAD 


# 

* 

WAF 


3>L 

* 

* 

* 

* 

* 

# 

wAF M 


wAWRA 

WAR w * CAOT W 
+ $C 

$81»IOFA 

$R1 * = 4 
$B1* TMO 
=$Rb*CAIIR 

wAWKE 
$Rb*WAF 
WAWKC 
TEMP 

$R4 9 TEMP 

$R4,=3 

WAWkD 

WAFMb 

TEMP 

$R4,TEMP 

$R4,=3 

wAWkCA 

WAFmB 


OUTPUT TASK WuRD FnR WRAPAROUND 

DELAY A LlTTLt: 

INPUT RANGE 

BRANCH - IF RmNGE NOT ZERO 


REPORT ERROR 


* 

3>D 
* 

WAwftCA 


biuF 

Iu 

blur 

LNJ 

LUR 
LNJ 
10 

blOF 
bNEZ 
b 

I nC 
LOR 
CMR 
BlE 
b 

Inc 

LdR 

CMR 
OLE 
b 

AT THIS POINT THE bYTE IS IN THE CONTROLLER WITH 
CLOCK BITS INSERTED. NOW TO TRY AND READ IT* 

IOLU 


DI OF 
CL 

10 

bior 

LNJ 

LDR 

LNJ 

10 

b I OF 

bNEZ 

LDR 

CMR 

bt 

CMR 

bt 

JMP 

LDR 

be/ 

ADD 

STR 

LDR 

STR 

b 

butC 

b 


*RBuF *CAILD*RNG 

OUTPUT ADDRESS AND RANGE 

WAWkC 

TEMP 


WARw *CAOTW 

OUTPUT TASK WuRD FnR wRaPAROUND 

+ $D 

$B1»I UFA 

$K 1 » = 4 

DELAY A LITTLl 

SBUTMQ 

=$Rb,CAIIR 

input Range 

WAWkF 

$R5 «WAF 

range NOT ZERu t OPFRATION FAILED 

$R1»*RBUF 

LOAD THE BYTE »KEAd« 

$R 1 * = Z'F 800• 

COMPARE WITH DATA 

WAC 

BRANCH - IF EvjjUAL 

$R1 » = Z•FFOO* 

WAC 
w A F m 

BYTES DO NOT COMPARF 

$R 1 +SAVE 

$R1 1 WAD 

CONTINUE WITH TEST 

$R 1 1 = 1 
$R1»SAVE 

USE AS INDICATOR 

$R1»=Z*FFFF* 

PATTERN OF ALl ONES 

$R1+*BFAD 

STORE THE PATTERN 

WAWKA 

DO IT AGAIN 

$R 7 « wAWR 

< W A wC 

GO AND CHECK 1 RACK CAPACITY 


Program comes here if 

ZERO AFTER WRAPAROUND 


10 


Si 0»cAOCW 


BiuT + $E 

LNJ $b 1 * I UFA 

b wAFmB 


PROGRAM COmES HERE IF 
BUT by I ts MISCOMPARE 


LUR 

beZ 

ADD 

STR 


$R1 +SAVEA 
$R1*WAFMB 
$R1»= X * 01 * 
$R1»SAVEA 
wAwk 


range DOES not GO Tu 
READ OR WRITE 

OUTPUT STOP Io COMMAND 


wraparound read fatl fd to 

DECREMENT RANGE * INuUCATjNG 
FAILURE TO COMPLETE OPERATION. 

READ UPERATION "WORnS" 

LOAD INDICATOR 



ubeb 

F ECU 

0003 





Ubo 7 

D380 

0000 

A 




Gbbv 

OF 80 






Gbb* 

0 S6C 






Ubbb 

1 F 3E 





0 0 1 u 3 7 

U56C 

OF 01 

FFFF 


E21 

NUP 

0 u 1 0 3 6 

UbOL 

8280 

193F 


wAwC 

Lb 


Ub7u 

0001 





0 u 1 U 3 9 

US 71 

UbOO 

0 1 8 D 



bbT 


WAFMb CALL eV$c.R*E21*ER21 


<PF l. * =Z • 0001 * 
<NEa I 


RETRY EVERYTHING OnCF 
WRAPAROUND REAu/WRlTF 
OPERATION FAILED TO RETURN 
THE CORRECT BYTE AFIER 
TWO CONSECUTIVE TRYs. 

REPORT ERROR 


wrong residual rangf while wraparound 


INTERRUPT 


TEST 


*----- 

* THIS Test CHECKS that an INTERkoPT DOES 

* OR DOES NO I HAPPEN FOR ALL POSSIbLL COMBINATIONS 
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Oulubl 
uuiubc 
OUiub3 
00 1 u 5 9 
Uu 1 u 5 6 


001656 
UG Iu57 
OU I u5o 
0 6 i u 5 9 
GG1u6u 
GG iG6 i 
GGI obc 
001663 
GG i 669 
UU 1665 
GGIu6o 
G G 1 G 6 / 
GG 1 u6o 
00iu6 9 
G G i G 7 G 
U G 1 u 7 i 
0 0 1U 7 4 
O 0 1 0 7 3 

G G i 6 7 9 
G G1 u 7 b 
GG1U lb 
G G i U 7 7 
G G i G 7 o 
001679 
G G i G 8 G 
001 ub1 
GG1ob4 
Ou iub3 
6 U 1 o 8 9 
G G i u b b 
GG i ubo 
G U i G b 7 
G G 1 o b b 

0UXO69 

GG 1 g9g 
G g i u y i 
0 01 o 9 2 
UO1o93 
00iu99 
GG i g 9 b 
Og1 o 96 
00169/ 
OG1G 9 c 

GGiu99 
GG l iO g 
OG iiGi 
GG 1102 
GG1iOb 
OGiiGi 
GGi1 Ob 
GGiX Go 
GGii07 
GG 1 i Go 
GG 11 Gy 


GU i i 1 G 
GG1 i U 
OOlil*; 
GG1 i lb 


001119 
0O1 i lb 
GOU 16 
GG1 i 1 / 
GG X X 11> 
001119 
Gui 120 
001121 
GO 1 12 2 
GG 1 12b 
001x29 
Ou 1 X 2 b 
Ou 11 2o 
00112 / 
GG 1 x 2 o 
GO 1 129 

GG 1 i 3 g 
GG libi 

001134 

OG 1 ibb 
001139 
00113b 


001136 

001137 

00113o 
001139 


* OF PkUukAM AND uEViCE INTERRUPT LEVELS. 


Ob 7 b 

9 b b 0 

1C63 


* 

I NT 

LAd 

$bl*<1MC 


0 5/5 

9FbG 

1573 



STb 

$Bi*<DEXB 







CALL 

ZV$T.ZV$TC,TSTC 


Ob 77 

F dCO 

0003 






Gb 79 

03b0 

GOOG 

A 





G b 7u 

oFbG 







0 5 7C 

19bb 







Ob? 0 

6 700 

1923 



CL 

< I NUTT 


Gb 7F 

Abbu 

uOOO 

A 


LAG 

$B2*<ZHISAZ 


Gbb 1 

bbbG 

0655 



LAb 

$B3* < I SmRD 

SAVE AREA FUR ALL lFVFLS 

Gbbb 

OF F 2 



KUPTA 

STb 

$B3 * + $B2 

SET UP ALL LEVELS 

Gbb9 

A 0 6 0 

0630 



Ci’ib 

$B2 * <FiOObF 

DONE YET? 

Gbbo 

G AF G 




BALE 

>RUPTA 

NO - KEEP GOImO 

Gbb / 

9bou 

066 A 



LAb 

$61*<DEVlH 

ADDRESS OF RUPT HAnDLFR 

Obb9 

9F bG 

Gbbb 



STb 

$61*<1SARP 

put into save area 

056b 

6C3F 




LDV 

$R6»=63 

STARTING level for program 

GbbC 

6700 

GOOG 

A 

KUPTb 

CL 

<ZH1AFB 

RESET All ACTxVITY flags 

0586 

6700 

OGGI 

A 


Cl 

<ZHiAFB+l 


Gb9u 

8700 

0002 

A 


CL 

<ZH x AF8+2 


Gb92 

8 700 

0003 

A 


CL 

<ZFil AFb + 3 


059m 

9870 

0060 



LbR 

$R1 * =Z'0080 * 

QUICK LEVEL CnANGE 

Gb96 

99 b 6 




Uk 

$kl* = $R6 

GET READY FOR LEVEl CHANGE 

Ob 9 7 

6Eb 1 




LEV 

= $R 1 

MAKE THE CHANGE 

Gb9b 

9570 

ou3F 



And 

$R1*=Z' 003F ' 

LOOK AT LEVEL ONLY 

0 5 9M 

b AO 1 




INC 

= $R 1 

GO BACK TO OLu LEVFL 

G b 9 u 

8610 

GOGG 

A 


LbF 

<ZHiAFb.$Rl 

AND RESET ACTIVITY FLaG FOR THAT LVL 

G b 9 0 

9856 




Luk 

$k1*=$R6 

GET CURRENT LuVEL BACK 

0 5 9 6 

9270 

GG3F 



Sub 

$R1 , = 63 

IS THIS FIRST TIME THRU? 

G b AG 

1986 




bN LZ 

*R 1 *>RuPT C 

NO - BRANCH 

GbMl 

9b60 

Ub3F 



LAb 

$B1 * <ISATD 


GbAb 

9 F 6 G 

G03F 

A 


S I b 

$B1*<ZHISaZ+63*$AF 

SETUP SAVE ARtA AFtFR LEV INSTR 

GbAb 

OF 8 7 




b 

>RUPTt 

SKIP THIS CODl NOW 

Gb Ao 

9856 



hup rc 

LDK 

$k1*=$K6 

RESTORE CURRENT LEVFL 

ub A 7 

bAOi 




InC 

= $Rl 

LOOK AT OLD Lt.V£L 

0 5 mo 

9bbG 

0655 



LAb 

$d i♦<iS ard 


0 b AM 

9 F 9 0 

GOOG 

A 


STB 

$B1*<ZHISAZ.$*1 


ub Al 

06 7 u 

GG3F 


RUP7L 

Luk 

$R5 *=63 

INITIAL LEVEL FUR DISK 

ObAc 

8 700 

1916 


RUPT F 

CL 

<T EimP 

RESET SlMAPHGkE 

Gbbo 

09 GG 

0609 



UK 

$R5 * <CPlu 

stick In cp channel number 

obuz 

605b 



$A 

lu 

=$R5*<CA0IC 


0563 

UGGO 

lbOA 






Obub 

0 7b 1 

FFFC 



biUF 

-$A 

WAIT FOR I/O 

0bd 7 

0570 

00 3 F 



And 

$R5 *=Z • 003F * 

DELETE CPCHAN 

Ob 09 

oFOo 

063 A 



str 

$R5 * <DLVL 

STORE DEVICE LEVEL AWAY 

ObdD 

LFoo 

Gb3L 



SIR 

$R6 * <PLVL 

STORE PROGRAM LEVEl 

ObbG 

EFOO 

063b 



SIR 

$R6 * <CLVL 

STORE INTO CURRENT I EVEL 





* 

NOW AN 

ATTEMPT IS MADE TO 

GET AN INTERRUPT VIA A STOP I/O 

0 b gF 

F 870 

G1 5 G 



Luk 

$R7 * = X *1 50 * 

SETUP FOR TIMl. DELAY 

05C1 

8070 

9000 


$b 

iu 

=Z * 9000 • * <CAGCvv 


GbLb 

OOOG 

1809 






GbLb 

0781 

F F F b 



blUF 

-$B 


ObL 7 

7 701 

Ff-FF 



bDtC 

$R7 * $ 

WAIT HERE FOR A WHn F FOR RUPT 

0 b G9 

OF 0 1 

FFFF 



NOP 

$ 

MAY COME HERE AFTER RuPT 

ObLd 

.0570 

003F 



ANU 

$R5 * = 2'003F• 

LOOK AT DEVICc: LEVFL ONLY 

05CD 

9855 




Luk 

$R1 * = $R5 

PUT DEVICE LLvEL INTO R1 

ObLd 

1901 

0010 



bLZ 

*Rl*kUPTG 

LEVEL ZERO CAnT RUpt 

ObL/G 

9256 




SUb 

$R1*=$K6 

SEE WHICH LEVcL WAs HIGHEST 

GbGX 

1 6 8 L 




buEZ 

$K1*>RUPTG 

DEVICE SHOULDN'T HavF RUPTLD - BRANCH 

Gbib4 

8980 

1916 



ChZ 

<TEmP 

DID A RUPT HAPPEN? 

Gb09 

0980 

06 39 



bNE 

<RUPT N 

YES - EVERYTH1NGS OK 






call 

ZV$lR*E22*ER22 

SEND LKROR MESSAGE 

ObOo 

FBCO 

0003 






Ob Go 

03b0 

UOOO 

A 





ObL/M 

OF 80 







ObOd 

GbOo 







ObGG 

1 F 9 1 







0 5 Du 

G F 8 1 

UOF 7 


E22 

b 

IRUhC 

INTERRUPT DIDN'T HaPPFNLD WHEN IT SHOULD BE 

GbuF 

8960 

1916 


ROPTG 

CMZ 

<T EhP ' 

HAS RUPT HAPPtNED? 

ObLi 

G9Gm 




bE 

>RUPTFi 

NO - ITS OK 






Call 

ZV$tR*E23*ER23 

SEND EKROR MESSAGE 

GbL2 

F bCG 

ggo3 






0569 

0380 

0000 

A 





G b 6 o 

OF 80 







ObE 7 

Gbb 9 







U 5 L6 

IF 99 







Ubt9 

OFbi 

uOEb 


E23 

b 

IRUPC 

INTERRUPT HAPPENED wHFN IT SHOULDN'T bL 

Obtu 

5901 

0093 


RUPT H 

bt-2 

$R5* RUPT h 

SKIP THIS LEVcL ZERO CAN'T RUPT 

ObLd 

0970 

GG3F 



CMk 

$R5*=63 

IS DEVICE AT uEVEL 63? ' ; riT 

GbtF 

0901 

U0 3F 



bL 

RUPT h 

YES - BkIP SInCE 63 CANT RUPT 

ObF i 

EF 00 

063b 



SIR 

$R6 * <CLVL 

CURRENT PRuGRmM LEvFL 

GbF 3 

9b7G 

0G3F 



Luk 

$RI * = 63 

SET FUTURE LEVEL 

ObF b 

9 F GG 

G63C 



ST K 

$R1* <PLVL 

STORE IN PROGkAM LFVFL 

GbF 7 

99 7 0 

8000 



UR 

$R1 * = Z'8000 * 

ACTION FOR LEV INStR 

GbF 9 

9bb0 

ObFt 



LAb 

$B1* <RUPTl 

CCHANgE ADDRESS IN ISA 

0 b F d 

9 F 8 0 

0656 



STb 

$B1* <1SARP 

STORE IN P COUNTER 

ObFo 

8E5 1 




LEV 

= $R i 

DROP TO 63 TO ENAB) F PENDING RUPT 

ObFt 

OF 0 1 

F F F F 


KUPTI 

NuP 

$ 

RETURN TO HERc 

OoOu 

F 8 70 

006t 



LDR 

$R7 * = 110 

SET UP FOR DELAY 

G 6 G 2 

7701 

FFFF 



bDEC 

$R7 * $ 

WAIT HERE FOR RUPT 

G609 

0600 

G63A 



LDR 

$R5 * <DLVL 

RESTORE DEVICt LEVFL TO R5 

G6G6 

6800 

GUO 3 

A 


LbF 

<ZHiAFB43*=Z»0001* 

SHUT OFF LEVEL 63 RIT 

0606 

0001 







0609 

bC52 




STS 

= $K2 

GO GET THE "S" REGlSTFR 

06G A 

A570 

C3FF 



And 

$R2 * = Z 1 C3FF* 


G6UL 

6955 




Lbl 

= $R5 * =Z * 9000• 

SET PRIVILEGE BIT 

0600 

9000 







0606 

A955 




CMk 

$R2»=$R5 

IS "S” REGISTER CORRECT? 

060F 

090A 




Dt 

>RUPTJ 

YES - GO ON 






CALL 

ZV$lk *E29 * ER29 

SEND ERROR MESSAGE 

06 1 G 

F b C 0 

0003 






0612 

0360 

0000 

A 





06 1 9 

GF80 







06 1 b 

Obi 7 







06 iO 

1 F 9 7 







06 17 

OF 8 1 

OOBD 


E29 

b 

IRUPC 

PENDING INTERkUPT DIDN'T HAPPENED 

06 19 

8855 



RUPT J 

LBF 

= 3>R5 * = Z * 4000 * 

SHUT OFF PRIVILEGE RIT 

06 1A 

9000 







06 1 u> 

0900 

063b 



CMk 

$R5,<CLVL 

ARE THE PROG mND Dfv AT SAME LVL? 

0 6 1 O 

0906 




bE 

>RUPT K 

YES - NO NEED FOR 1 FV 



i I I L t l> IMS 3 * * K t V t * 
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00 1 1 4 u 

0 6 i L 

C870 

cOcU 



Ldr 

ik4,=2*8080* 

0 0i141 

0620 

04 00 

0 o3 b 



UK 

SR4 * <CLVL 

0 0 1 1 4 c 

0 0 2 4 

cLb4 




LEV 

= 3>K4 

uU1143 

0023 

9bb0 

U66A 


KOFI K 

L At 

SB1* <DEv1H 

0 0 i i 4 

004b 

9 F CO 

0032 



Sib 

Sbl*1SAKP 

00 i 148 

0 o 4 7 

Lc UO 

063b 



LDR 

$R6 *<CLVL 

0 U i i 4 o 

0029 

98b6 




LDR 

Ski * = SR6 

001147 

Oo2 M 

4D80 

Uo3F 



LaB 

Sbl*<ISATD 

0 0 1 1 4 o 

0OeO 

4F90 

UUOU 

A 


S j D 

$bl,<ZHlSAZ.$Rl 

001144 

0641 

Of 80 




b 

>RUPTN 

o u 11 b o 

0 0 4 F 

CO 7 0 

cOOU 


KUPTM 

lu 

= Z* 8000•,<CAOCW 


003 1 

u 0 0 U 

1 bb9 





001 ibl 

0033 

0 7F C 




biuF 

>RUPTM 

0011 be 

U 6 3 *+ 

b 700 

u b At 


KUPTN 

bbtC 

*Rb,<kUPTF 

Ou11 83 

0 O 3 O 

0 7 0 0 

ObbC 



bDEC 

Sk6,<RUP Tb 

0 o 1 1 b 

0 0 3 o 

U F b 0 

060b 



D 

<IkuRC 

0 0 1 i b b 





* 



001 iSo 





* 



00 1 ib7 

0 6 3m 

U0 3F 



DLvL 

DC 

= 63 

ou 1 1 bo 

Ooio 

00 3 F 



CLVL 

DU 

= 63 

0 0 1 1 b 4 

Uo 3C 

UO 3 F 



PL VL 

DC 

= 63 

0 0 1 i c 0 

0 0 3 0 


003 F 

A 

HOUBF 

DC 

<ZHiSAZ +(63*$AF) 

00116i 





* 



UO 1 i6e 





* 



00 1 1 6c 





* 



001164 

0 0 8 L 

UOUG 



I SAT 

KlSV 

$AF»0 

0 0 1 1 6 b 

0 o 3 F 

uuou 



ISATD 

DC 

X'OUUO* 

0 0 1 1 6 o 

U 0 4 0 

FFFF 




DC 

Z’FFFF* 

00116 / 

0 04 1 

00 0 0 




bt 

4’OuOO* 

0 0 1 1 6 o 

0044 

oobb 




DC 

<IRuPC 

0 U 1 1 6 4 


0042 



ISaTP 

LuU 

S-l 

0 0 1 i 7 o 

004 3 

0000 




DC 

X'OuOO* 

0 0 1 1 7 i 

0044 

u 0 u 0 




KlSV 

7*$AF +9 * 0 

0 U i 1 7 4 








U 0 11 7 c 





* 



0 u 1 1 7 4 

00b4 

0000 



1 SAK 

KlSV 

S>AF*0 

Oul 17b 

00 b 3 

ouou 



1 sard 

DC 

X'OuOU* 

0 u 11 7 o 

Uobo 

FFFF 




DC 

L ’ F F F F • 

001177 

Oob 7 

UUUO 




DC 

4 *ouoo' 

0 u 1 1 7 o 

Oo8c 

0000 



1SARP 

KLSV 

SAP $0 

0011 74 

0 0 b 9 

uOOu 




DC 

X *OuOO• 

00 1 1 So 

0 0 b A 

UUUO 




KLSV 

7*$AF+9*0 

UUl 181 





* 



UUl ib4 





* 



U 0 i 1 8 3 

00 OM 

8 AbO 

0642 


DLVIH 

1 NC 

< I Sa'I P 

UO 1 1 84 

Oobo 

8 Abu 

0642 



1 NC 

<ISA IP 

00118b 

OobL 

8 AbO 

1923 



INC 

<INCNT 

0 0 1 1 8 o 

Oo 7o 

8 A 8 0 

19 16 



1 nC 

<TEmP 

U 0 1 1 8 7 

Oo 74 

DbOU 

U63A 



LoR 

*R3,<DLVL 

UO 1 18c 

Oo 74 

L800 

06 3C 



LDR 

$R6*<PLVL 

0U1 184 

06 70 

D4U0 

1918 



UR 

$R5 *<CHAI 

Ooliyo 

06 7c 

A800 

Oobb 



LDR 

it>R2 1 < I SARD 

00114 i 

Oo 7 m 

88 b 4 




LbF 

=$R4»=Z’0040* 


06 7o 

0040 






OUlI9e 

0 6 7C 

A9bb 




CmR 

$R2 1 =$kb 

001198 

06 7o 

U90A 




Bl 

>DEvIh1 

001194 






CALL 

ZV$Lk*E2b*tR2b 


06 7L 

FdCU 

0003 






06 C U 

D3 80 

0000 

A 





0 6 C 2 

U F 8 0 







Ooo 3 

U6fab 







0664 

1 F 4 A 






00119b 

0 0 C 8 

OF 8 1 

U04F 


L2b 

b 

I RUPC 

00119c 

OoC 7 

0800 

06 3A 


DLVIhi 

LDR 

ikb 1 <DLVL 

001 19 7 

0 6 C 9 

8Cb2 




SIS 

= $K2 

U 0 1 1 9 8 

06b A 

U4UU 

1929 



UK 

$RS,<STATUS 

001194 

06CL 

Ab70 

0 3FF 



AND 

*K2,=Z’63FF• 

UUleOu 

OobL 

A9bb 




CMR 

$R2 1 =SRb 

UUleOl 

0 6 C F 

U 90 A 




bt 

>DEVIH2 

OOleOe 






CALL 

ZVSlR*E26*ER26 


069U 

FBCO 

0003 






0694 

0380 

O000 

X 





0694 

uFbO 







069b 

06 9 7 







Uo9o 

1F4D 






001403 

0697 

OF 81 

003D 


L26 

b 

IRUPC 

001404 

0099 

Ub70 

003 F 


ULVIH2 

And 

*R5,=Z*003F’ 

0 0 1 e 0 8 

0o9o 

8 7 b e 




Cl 

= $K2 

OUI 4 O 6 

0640 

82 AO 

0000 

X 

Dt VIh3 

Lb 

<ZH1AFB.$R2 

OUI 4 O 7 

0 0 9 L 

A9bb 




CMR 

$R2,=$Rb 

uoizOo 

0o9F 

0901 




bt 

>DEv1H5 

0 0 Le 0 9 

0 0 AO 

A9~b 6 




CMR 

$R2 * = $R6 

UoielU 

06 A 1 

U90C 




DL 

>DEvIH5 

001e1 1 

06A2 

Ob 02 




bb'r 

>DEV1H4 

0014 1 4 

Oo A3 

0F99 




b 

>DEVIH7 

00 1 e 1 8 





DLVIH4 

CALL 

ZVSlK * L2 7 * ER2 7 


0 0 A4 

FbCo 

U003 






0 0 Ac 

b3fa0 

0000 

X 





Oo Ac 

OF 80 







OOA9 

06 Ab 







00 A A 

i F bO 






OUie 14 

06 Ab 

OF 8 1 

0029 


L27 

b 

IRUPC 

00ie 1 b 





X 



00 1 e 1 0 

Oo Ac 

Ob 8 6 



DtVlHS 

bbF 

> D E v IH 6 

UUU17 

0 0 At 

A9b6 




CMR 

SR2 * = $Rb 

00 1 e 1 c 

06 AF 

U90D 




bt 

>DEvIH7 

OUle 19 

06bU 

8820 

uooo 

X 


LbF 

<ZHiAFB.3>R2 

0U122U 

06b4 

OF BA 



4 

b 

>DEVIH7 

OUUZi 





DLVlHc 

CALL 

Z V$tR * E28 * ER2 B 


06D3 

FbCO 

0003 






Oobb 

D380 

UOOO 

X 





06b7 

UF 80 







06bb 

ObbA 







06b9 

1F b 3 






0 0 1 e 2 e 

U6DA 

OFbi 

00 1A 


E28 

b 

IRUPC 

001423 

06bC 

A970 

00 3 F 


DLVIH7 

CMR 

$R2 » = 63 

O U l 4 2 4 

06dt_ 

0282 




bGE 

>DEvlH8 

00122b 

0 6 bF 

2 7 UO 




b 1 NC 

$R2 *>DEVIH3 

UU1420 

ObCU 

C870 

800U 


DEV I Fib 

LDR 

$R4 1 = Z * 8000• 

001427 

0bC4 

C400 

063b 



UK 

$R4,<CLVL 

00122c 

0 0 C 4 

D900 

U63b 



CMR 

$RS,<CLVL 

OU1429 

O 0 C 6 

U90O 

ObFE 



bt 

< R U P T I 

00123U 

ObCc 

bEb4 




LtV 

= SRh 


ACTION FOR NEaT LEV 

get current llvel 

BRING CP BACK FROM 63 
RESTORE POINTER TO HANDLER 

RESTORE PROG lEVEL TO Rb 
PUT INTO RI 
ISA FOR PROGRAM 
RESTORE INTERkUPT VFCTOK 
SKIP AROUND InITIAI T7F 


CHANGE DEVICE LEVEl AND BRANCH 
CHANGE PROGRAM LEVFI ANu BRANCH 
ALE DONE - GO ON 


DEVICE LEVEL 
CURRENT LEVEL 
program LEVEL 

ADDRESS OF LAST RUpt VECTOR 


ISA FOR BAcKGkOUND program 


ISA FOR DEVlCu LEVFL 


RESET RETURN LOCATION 


SET SEMAPHORE 
DEVICE LEVEL 10 R5 
PROGRAM LEVEL TO R6 
STICK IN channel numbfR 
LOOK AT RUPTInG DEVICF 
SHUT OFF I/O o I I 

WAS IT THE DIoK? 

YES - OK 

SEND ERROR MESSAGE 


wrong device interrupted 
DEVIC t LEVEL (0 Rb 
STORE THE "S" REGISTFR 
SET CHECKLlGhT CPlD, PRtV BITS 

IS IT RIGHT? 

YES - 00 ON 

SEND ERROR MESSAGE 


S-REG WRONG In ISA 
LOOK AT DEVICt. LEVFI 

reset index 

LOOK AT NEXT FLAG 

IS THIS FLAG I HE DFVICE LEVEL? 

YES-BRANCH 

IS THIS THE PROGRAM LEVEL FLAG 
YES-BRANCH 

IF FLAG IS ON- BRANCH (SHOULDN’T BE) 

ok if flag is off 

SEND ERROR MESSAGE 


program level FLAG is on 
FLAG IS OFF liT SHOULDN’T bE) 

is this the program lfvel? 
yes-branch 

NO-RESET DEVICE LEVFL FLAG 

continue 

SEND ERROR MESSAGE 


PROGRAM LEVEL FLAG TS ON* IT SHOULDN’T BE 
IS that ALL THE FLAGS? 

YES - BRANCH 
NO BUMP AND BRANCH 
GET READY FOR LEV 
INSERT CURRENi LEVFL 
ARE LEVELS EQUAL? 

YES - PONT LEV 
GO BACK TO PRuGRAM 



rlTLt LiiM53»*REV t* 
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001231 

06L9 

OF 80 

066 A 



b 

<DE vIH 


BRANCH TO STAKT OF HANDLER 

001234 





CALL 

ZV$lR,E29*ER29 


SEND ERROR MESSAGE 


GbCb 

FbCO 

0003 








06C0 

0380 

0000 

X 







06 CF 

OFbO 









0600 

0602 









0601 

1F56 








001433 

0602 

0F81 

O 0 U 2 


629 

b 

IRUpC 


CAN *T CHANGE THE LFVEI 

001434 





* 





00123b 





* 





0 0 l 4.3 6 

0604 

0000 



CPID 

Ou 

= 0 



UO 1 23 / 





* 





GO 14 3o 

060 b 

FBFO 

0001 


IKUPC 

CALL 

ZVSkD.ZVSIZ 




060 / 

038U 

0000 

X 






001439 

0609 

8280 

1941 



Lb 

<ELF L * =Z * 0001 • 




06UD 

0001 








0U124U 

060 C 

0581 

0016 



BdF 

DOR 



001441 

ObDt 

FbCO 

0003 



CALL 

ZV$T.ZV$TC,ME5GN 


END OF TEST MlSSAGf 


06 LU 

0380 

0000 

X 







0602 

OF 80 









0603 

1C43 








00i24 4 

0664 

OF 81 

FA lb 



b 

START 


LB <PFL, = 7*0001 * 

uu 1443 

0666 

8280 

193F 



Ld 

<PFL,=Z*0001» 


SEE IF TEST FlAG IS sft 


0668 

0001 








Oo i 44 ^t 

066V 

Obbl 

0009 



bbF 

DOK 


END OF TEST MlSSSAgf 

UO 124b 

O 660 

FBCO 

0003 



call 

zVSFi *ZV$TCfMESGN 




066 U 

0380 

0000 

X 







06 6 F 

OF 80 









OcF 0 

1C43 








00144c 

00144/ 

06 F 1 

OFb 1 

FA3C 


* 

b 

RERUN 



00124V 





* 




IVE DOOR TFST 

0 0 14 b u 





# 


U I S K E T T D 

R 

00 i4b i 
0014 b4 





* 














Ou12 b3 





* 





0014 bn 





* 

FOLLOWING TEST CHECKS THE 

DOOR ON THE DISKLIT DRtwF* MAKE SURE 

ooi4bb 





* 

thl switch StT the status 

OF 

DEVICE READY Ai»D ATTFNTlON 

ou 14bo 





* 

BITS DURING 1 HE OPENNING ANu 

CLOSURE OF THE DOOR. 

OU14 b / 





* 





00 1 4 b 3 





* 





ou 125v 

ObF 3 

9b80 

1C68 


OOP 

LAB 

SB 1 »< I ML) 



UU 146 U 

0 6 F b 

9F80 

1 b 73 



STB 

Sbl»<DEXb 



001261 

U 6 F 7 
06F9 
ObFb 

UbFc 

06 FO 

FbCO 
0380 
UF 80 
19A6 
8700 

0003 

0000 

X 


CALL 

ZV$1.ZV$TC,TSTD 



U0l46c 

UOOO 

X 


CL 

<ZHiAFB 


RE5ET ALL LEVlLS 

OU1463 

U 08 F 

9800 

2009 



LDK 

SKI*<A5 


ACTION FUR CODING l FVFL 

UU1404 

0 / 01 

9470 

0016 



UK 

Skii=22 


GET CP LEVEL 

OU 1 46 b 

0703 

86 b 1 




LLV 

= $Ri 


RESTORE CP LEVEL To 221 

Ou 1 460 

0 /04 

1 C 14 




LUV 

sR 1 * =20 


Ou1 4 6 / 

0 /Ob 

Ab80 

0000 

X 


LAb 

$B2 * <ZH1SAZ 


ISA FOR LEVEL 20 

00126b 

u / 0 / 

UbbO 

IF 67 



LAb 

SB5,<L20D 


00146V 

0/09 

DFUL 




Sib 

Sbb»SB2.+$kl 


SET VECTOR 

Ou14 7u 

0 70a 

UbbO 

1 F CD 



Lab 

Sbb,<L210 


ISA FUR LEVEL 20 

0 U1 2 7 i 

0 700 

OF06 




Si b 

SB5»Sb2.+SRl 


ISA FOR LEVEL 22 

0 0 1 4 7 4 

0 700 

UbbO 

i F 63 



LAb 

SB5,<L22D 


OU1273 
00 1 4 1 <■+ 

O/uF 

UF92 



* 

Sib 

SBb »SB2•$R1 


SET VECTOR 

U U 1 4 7 b 

0 7 1 0 

9870 

001 b 



LDK 

SR 1» =2 1 


CREAT INTERRUPT CONTROL toORO 

0 u i 4 7 0 

0/14 

9400 

0604 



UK 

sRl»<CP 1 0 


0 U 1 4 7 7 

0 / 1 4 

9F00 

192b 



SIR 

SRI *<DRIN 


SAVE IT 

0 u i 4 7 b 

0 u 1 4 7 V 

u 7 16 

8 700 

0700 


* 

CL 

<DCiiAN 



Ou I 48 U 

0 716 

9800 

1918 



LUk 

SRI ,<CHAI 



Ou1 4 81 

U 7 1M 

99 70 

0000 



Cnk 

SRI,=0 


ONLY CHAN b Id PRESFNT 

0 u 1 2 8 c 

0 /lo 

0901 

0076 



bL 

OURbi 


001483 

0716 

9 F 0 0 

0701 



STK 

SRi*<CHNL 



UU1484 

0 720 

980u 

186b 



LOK 

SRI $ <CAISto 



Uu1 48 b 

0/24 

9 F Ou 

07 AF 



S| K 

SRI,<CAIS1 


MAKE INPUT STATUS FUNCTION CODE 

OU 1 480 

0 724 

9800 

IbOA 



LDK 

SR 1» <CAOIC 


PREPARE INTERkUPT CONTROL toORD 

001487 

0 / 2 b 

9 F 00 

192 A 



STK 

$R 1 » < 00 KIS 


SAVE IT 

Ou 1 4 80 

0 74 8 

6 700 

07 CF 


Dora 

CL 

<DCnT 


CHECK THE 000k IS OPEN 

UU128V 

0 / 2 A 

bOOO 

07 02 



iu 

<STaTA,<CA1ST 



0746 

0000 

0 7 A F 






00 1 2 90 

- 0726 

0701 

0003 



DlOl 

OORaI 



001491 

U /3U 

9380 

1BB 6 



LivJ 

SB 1 1 <IOFA 


CHECK STATUS 

Uu 1 4 Vt 

0 / 3 4 

8280 

0 702 


ookai 

Ld 

<STaTA,=Z»8000» 



07 34 

8000 







DOOR iS OPEN - dRANCH 

001493 

0 73 b 

0b80 

0 764 



bpF 

<D0kA2 


001294 

073 / 

FbCO 

UU03 



Call 

ZVSI*ZV SiC♦0P6N1 


OR ELSE ASk 10 OPEN 


0739 

u38u 

0000 

X 







0/3)3 

OFbO 









0 /30 

O/bO 








U u 1 4 9 b 

0 7 30 

F bCO 

0003 



call 

ZVSIH,CHiML 




0 / 3F 

u3 80 

ooou 

X 







U /4 1 

0 F b 0 









0/44 

u 701 








001496 

0 743 

804U 

116 / 



iu 

or Indoor is 


ENAbLb INTERRUPT 


U /4b 

OUUO 

1 92 A 






* 

U 0 12 9 / 

0 74 / 

0 701 

UU03 



biuT 

OORaS 


to AIT FOR I/O 

UU149c 

U /49 

9 3 8 U 

lbbL 



LNJ 

Sbl*<10FA 



U U 1 4 9 V 

0 /4b 

9380 

i486 


DCKA 8 

LnJ 

SbU<DORlN 


CHECK 1NTERKuP1 CAMf WHILE OPENED 

UU 1 _5Uu 

07 hu 

8000 

0 702 



iu 

<STATA,<CAIST 


READ STATUS AFTER RFTURN 


u / 4 F 

UOOO 

0 7 A F 







u u 1 3 0 i 

u /b i 

u 7 0 U 

U/bb 



b 101 

. <D0kA3 



OulbOc 
UU13 03 

0 7 b 3 

9 36U 

ibb 6 


* 

Lr>iJ 

sbl »< IUFA 



0 U 1 j 0 ^ 

07 b b 

9 8 00 

u /02 


DukA3 

LUK 

sRl*<STATA 


CHECK THE STAIU'S 

U u 1 3 0 b 

0 /b / 

997U 

^♦000 



CHK 

SR 1 » =Z 1 4000• 


CHECK 0EVREA0y= 0, ATTNTiON=l 

0 0 1 3 0 c 

0 7 b V 

09U 1 

UUU A 



bL 

uURa2 


BkANVn IF OK 

0 U1 3 0 7 

u / bo 

FBCu 

uOU 3 



Call 

Z VSLK *E30*ER30 


SEND ERROR MEuSAGE 


0 7 b u 

U 3 8 u 

uuuO 

A 







u / b r 

OFbO 









i > 

KJ 


/T '>:v 

/ 







11 

111 u i f- 

•ib 3 i * KL V E 1 
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U /OU 

u 7 bb 









0/61 

!Fb9 








UU 1 jOb 

0 / 0 L 

UFbl 

UU7U 



L3U 

b 

ouko 

wrong status whill ddoor test 

U U i J U V 






* 




M ^ UL/Ulu 






OukA2 

call 

ZVSI•ZVSTC »CLJS1 

ASK Tu CLOSE dOOR 

1 

U /b4 

FbCU 

UU03 








0 / 60 

o38U 

uoou 


A 






U / 6 o 

U F b U 









U / o 9 

U /O A 








0 U 1 3 1 JL 







CaLL 

ZVSIH,CHNL 



U / Ort 

F dU 0 

0003 








U ( UU 

03 8 u 

ouOu 


A 






U / b L 

UF bU 









u for- 

07 ol 








GUioU 

0 / / u 

8 U A U 

1 IbA 




iu 

ukIo,<DUkIS 

ENAbLL INTLRRoPI 


U / /c 

uOuu 

1 9b A 







UU i 3 1 3 

U i 7 9 

U 7U1 

uUOi 




bluT 

oOka9 


UU 1 3 la 

U / 7 o 

93b U 

ibbL 




Lnj 

1♦<iUFA 


u U I o 1 b 

U / ( u 

9 3 b U 

i486 



00kA9 

LNJ 

3>bl ,<DQKIN 

CHECK INTERRUPT CAmf WHILE CLOSED 

U U i u 1 o 

U / /n 

bOUU 

0/02 




10 

<ST A T A * <CAI ST 

REAP oTATUS On KETijrn 


U / /L 

UUUU 

0 /Ah 







0 u i o 1 i 

U / / L 

U 7 00 

0 78 2 




oiui 

<DOkAa 


UU 1 3 1 u 

U / o U 

9 3 60 

Idol 




Lnj 

a>bl »< 10F A 


U U i 0 1 9 






* 




OO 1 o2u 

U 7 8 b 

9b0u 

u 702 



00KA4 

LdR 

i>Rl»<STATA 

GET THE STATUo 

OOlo2 i 

0/64 

9 b 7u 

h QUO 



% 

AND 

SR 1 * =Z * F000• 

STRIP TO DEVRlADY AND ATTENTION 

U u 1 3 1 <_ 

U I 8b 

9970 

OOUU 




CNK 

itki »=z*cooo» 

CHECK DEVREAbr=l* ATTFNTlON=l 


LUbo 

U9U 1 

uuO A 




bL 

dORdI 

proceed if ok 

UU 1 829 







CmLL 

lVSlK,L3ULR31 

send ERROR MLoSmGE 


U / 0 A 

F bUU 

0003 








U /OL 

0 3 bU 

UUUU 


A 






U V 8 L 

UFbU 









U /8h 

0 791 









U 7 9 U 

IF bU 








UO 182b 

U 7 9 1 

UFbl 

OUA 1 



E31 

b 

DOko 

WRONG STATUS aHILE nPFN AND CLOSE DOOR 

UUl82o 






* 




00182/ 

U 7 93 

98U0 

i 92b 



UUKbl 

LuK 

^R1»<DRlVb 


001828 

U /9b 

99 70 

0001 




Cnk 

ikl,=l 

CHECK SECOND lHANNh 

U U 1 3 L 9 

U 7 V / 

U901 

003b 




be 

DORo 

GO TO NEXT TLoT IF NOT 

U U 1 _> 3 u 

U / 9 9 

9 b U U 

1 9 la 




Luk 

iRl,<CHBI 

GET CHANNEL b. 

Uui33i 

U 7 90 

9 F U 0 

u701 




S 1 K 

iki%< CHNL 


UU 1 8 8 ^ 

U / 90 

9 bUu 

1 b h 3 




Lok 

$R1,<CBISW 

PREPARE INPUT STATUS PUNTION CODE 

oo18 3 3 

U /9L 

9 F 0 0 

0 7 A F 




STk 

$kl,<CAISI 


o o 1 8 3 a 

07*1 

9800 

lbLb 




LOK 

ski,<C60IC 

PKEPARt INTEkKUPT CONTROL FUNCTION 

OU18 3 b 

U / A 3 

9 F 0 0 

i 9 2 A 




S 1 K 

ik1i<00k1S 

SAVE IT 

UU13 3u 

0 / * b 

9 bUU 

u 7 00 




LOK 

skii<DChAN 


uu183 / 

U i A / 

99 70 

0001 




Cnk 

ski 1 = 1 


UuU3o 

U 7 A 9 

0 901 

0029 




bL 

DOkC 

GO TO NEXT TEoT 

UU 1 u3V 

U /Ao 

b AbO 

u /DO 




1 NC 

<DCnAN 


OU1840 

0 /AO 

UFbl 

F F 7 A 




b 

DORA 

GO AND CHECK SECOND CHANNEL 

U0134I 






* 




Ou184c 

U 7 AF 

00 00 




CAIST 

DC 

0 


Ou134j 

U /bu 

a F b u 

4 b AL 

2044 


OPEN 1 

TLX I 

«opln door on drivl: 

S' 


0 7 03 

AF Ah 

b220 

4F4E 








b 04 A 

bb49 

bbAb 








3 A29 








1 U U 1 3 4 9 

U /da 

bObb 

b A 2 0 

b 74F 


CLUS1 

TlxT 

»PUi iwURk OISkLTTL AnD CLOSE THE OuOK 0|M:S« 

1 

07 DO 

bb At 

2-U A A 

A9b3 






\ 


AdA b 

b a b a 

4b2 0 








a 14 L 

A A 2 0 

434C 








4 F b3 

Ab2 0 

b44b 








4b2u 

A44 F 

4Fb2 








bu AF 

al3a 

2400 






U u184 3 

U 7Or 

UuOO 




DCnT 

Oo 

0 

counter 

U U i 3 4 u 

U 7 ou 

0 U 0 0 




PCFiAN 

oc 

0 

CHAN b* INOlCaTuR 

00134 / 

0 7oi 

oouo 




CHNL 

oc 

0 

SAVE CHANNEL NUMBER 

U U i 8 4 o 

U 7d2 

0000 




STmTA 

oc 

0 

SAVE STATUS 

Uu1349 






* 




UU 1 3 bu 

U 7 03 

82 60 

193 F 



OOkC 

L D 

<PFLi=Z•0001 * 

IS ALL FLAG CdLaR 


U/Ob 

uoo i 








U U 1 3 3 i 

U/Ob 

obOo 

0180 




boT 

<NtxT ' 

IF NOT ASK FUk NEXT TFST 

UU i j be. 






* 

# _ 




UU 1 3 b4 






# 




0013 b b 






* 


TRACK CAPAC 

I T Y T t S 1 

u o 1 3 b o 






* 




0013 b 8 






* 




UU1 8b9 






* 




uU i 3fc»U 






* CuNl HLkl IF THERE IS ONLY ONE CHANNEL 

U U 1 3 6 i 






* 




UU136c 






# 

NUw 1 0 

SLL IF THL OklVL AND 

CONTROLLER AKl 

uU 1 368 






* 

klAoY 

IU Go TO- WORK 


UU1864 






* 




GUI36b 

U 7Oo 

bObb 




bCCC 

1 0 

=$kbiCAISw 

INPUT STATUS FROM CHAN A 


U 7 09 

0040 

11 Oo 







001806 

0 7 0d 

0701 

0000 


T 


blur 

+ SE 


UU1367 

U 700 

93CU 

1 3 LU 




LNj 

sbiiIOF a 


Uu136o 






* 




001369 

U 7 06 

bbUl 

0000 


i 

it 

bLZ 

SR5*-fSA 

BRANCH - IF CriAN A TS READY 

uui 37u 

U /LI 

UFbl 

U004 




b 

dCCu 

DEVICE NOT KLaDY 

Uul37i 






* 




0 u 1 3 7 8 

U /Li 

bOOl 




SA 

SuL 

sRb i 1 

DROP THE CAN a READY RlT 

00 1 3 7 8 

0 / LA 

b901 

O0BA 




bLZ 

SkbiCABS 

GU AND TEST SlEk ERROR 

OU13 79 






* 




U 01 3 7 b 

0 7 Lb 

87 b b 




BCCO 

CL 

= $Rb 


Ou 1 j7o 

U / L7 

bObb 





lu 

=$RbiCAOIC 

OUTPUT RUPT CuNTROi TO CHAN A 


G/Lb 

0040 

1 OF 1 







uu 1 3 7 7 

0 7 La 

0701 

0000 


1 


blOT 

+ $F 


UU 1 j7o 

0 /LC 

93C0 

1301 




LNJ 

SblilOFA 


001379 






* 




OUi3BU 

U /LL 

8040 

1113 



SF 

Iu 

INIiiCAOTW 

INITIALIZE 


07F 0 

0U40 

1 OLA 







UUi38l 

U 7F2 

0701 

0000 


T 


biU 1 

+ SA 


UU L 8bL 

0 7 F 4 

93C0 

13C9 




LimJ 

Sb111 UFA 


UU1383 






* 




UU1384 

U /Fb 

bObb 




SA 

lu 

=SkbiCAISW 

INPUT STATUS uF CHAN A. 


U7F / 

0040 

lotu 







r ' U U 1 3 8 b 

U 7 F 9 

0 781 

FFFC 




b i UF 

-$A 


I UU138b 






* 




L .x 001387 

U /F o 

bbOl 

OuOb 




bLZ 

$RbiBCCCX 

BRANCH - IF CAN A is READY 

U 0 1 8 8 8 

U 7 F o 

b3C0 

0030 




LNJ 

S B 3 ♦ I N D W 

OR ELSE FIND uUT WHY NOT 

UU1389 

U 7 F F 

OF b 1 

UL48 




b 

COA 

THEN REPORT EkROR 
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UO 1 390 





* 




00 1391 





* 




00139c 

0601 

9600 

191b 


bCCCX 

LOR 

$Rl $<CHN 


001393 

0603 

1801 

006b 



bLc 

SR l * CABS 

BRANCH - IF OnLY Onf DRIVE 

UO 1 394 

0603 

6055 




10 

= $R3 *CBISW 

OR ELSE INPUT STATUS OF CHAN B 


060b 

0040 

10EC 






001393 

0806 

0701 

0000 

T 


blOT 

+ $6 


001396 

060A 

9300 

1 3b3 



LNJ 

$61 * IOFA 


Ou1397 





* 




001396 

ObUC 

5601 

0000 


Sb 

bL2 

$R5»+$A 

BRANCH - IF CuAN B RFADY 

001399 

0606 

OF 81 

FFD7 



b 

BCCu 

CHAN B NOT REmDY 

001400 





* 




001401 

0610 

3001 



$A 

SQL 

' $R5*1 

DROP THE DEVICE READY BIT 

OGI 4 O 2 

0611 

3901 

0050 



BL 7 

$R5 * CABS 

GO AND CHECK ILLEGAL OPERATION 

001403 





* 




0U1404 

Ob 13 

6755 




Cl 

= $R3 


00I 4 O 3 

0814 

8053 




10 

•$R3*CB0IC 

OUTPUT RUPT CONTROL TO CHAN B 


0815 

0040 

10D2 






OoIhOo 

0617 

0701 

UOOO 

T 


BIOT 

+ $C 


GGIhOV 

0819 

93C0 

13A4 



LiMJ 

$Bi $IOFA 


001 40t> 





* 




001409 

06 ID 

6040 

10E6 


$c 

10 

INI 1,C60TW 

INTIAlIZE CHA.m d 


08 lU 

0040 

lOCb 






0014 10 

Ob 1F 

0 701 

0000 

T 


blOT 

+ $D 


001411 

0621 

93L0 

139C 



LnJ 

$Bi *IOFA 


00 1 4 1 2 





* 




001413 

0823 

6035 



*D 

10 

=$R3*CbISW 

INPUT STATUS FROM CHAN B 


0624 

0040 

10CE 






001414 

0826 

0761 

FFFC 



blOF 

-3>D 


001413 





* 




001416 

0628 

3601 

0046 



BLZ 

SR5,CA6S 

DO AN ILLEGAL TRACK OPERATION 

001417 

062 A 

b3C0 

0003 



LNJ 

$B3*I NOW 

OR ELSE FIND uUT why NOT 

001416 

0620 

0 F 8 1 

0E42 



b 

COBA 

THEN REPORT EkROR 

001419 





* 




001420 





* 

initialize did not pot device in ready state 

001421 





* 

FIND 

UUT WHY 


00142c 





# 




00l42o 

0626 

5002 



1 NOW 

Sul 

$R5*2 

POSITION UNDEkRUN/ovERRUN BIT 

Ou1424 

0826 

3661 

0000 

1 


BuEZ 

$R5» + S>E 


001423 

0631 

OF 8 1 

0034 



b 

I NDwA 

BIT TWO NOT ClEAREd BY INIT 

001426 





* 




00142 7 

0633 

5001 



SL 

Sul 

$R5,1 

DELETED FIELD 

Ou i42o 

0634 

3661 

0000 

7 


bGEz 

$R5 » + S>F 


001429 

0836 

0F61 

U02F 



D 

INDwA 

BIT THREE NOT CLEARFD BY INIT 

00 1 43u 





* 




001431 

0836 

5001 



SF 

sul 

$R5,1 

READ ERROR 

O0i43c 

0639 

3681 

0000 

1 


bgez 

$R5 * + $A 


001433 

083d 

OF 61 

002 A 



b 

INDwA 

BIT FOUR NOT CLEARFD BY INIT 

001434 





* 




001433 

08 3d 

3001 



3>A 

SOL 

$R5 * 1 

DEVICE FAULT 

001436 

083t 

5861 

OOOU 

T 


bGEZ 

$R5 * + SB 


001437 

i ] (i 1 ix.'X y % 

U840 

OF 81 

0025 


ik 

b 

I NDw A 

BIT FIVE NOT lLEARfD bY INIT 

U U x *+ D O 

001439 

0642 

3001 



sb 

SUL 

SR5 * 1 

MISSED DATA SYNC 

00l44u 

0643 

5861 

0000 

T 


BGEZ 

$R5 *+ SC 


Ou1441 

0643 

0F61 

0020 



b 

INDwA 

bit six not Cleared by init 

00144c 





* 




001443 

0647 

5001 



SC 

sol 

$R5«1 

FMT ERROR OR UNSUCCFSSFUL SEARCH 

001444 

0646 

5861 

0000 

T 


BuEZ 

$R5 «+ SD 


001443 

084A 

OF 8 1 

UOlb 



b 

INDwA 

BIT SEVEN NOT CLEARFD BY INIT 

001446 





* 




001 *+47 

064C 

3003 



3,0 

SUL 

$R5 * 3 

SEEK ERROR 

00 1 44o 

0640 

56b 1 

0000 

T 


BGEZ 

$R5»+3>E 


001449 

0 6 41“ 

OF 6 l 

0016 



b 

INDwA 

bit ten not Cleared by init 

OU14 3o 





* 




Ou143i 

0651 

3002 



SL 

SUL 

3>R5*2 

CORRECTED MEMuRY ERROR 

OU 143c 

0852 

5661 

0000 

I 


bgez 

$R5 * + SF 


0 U 14 5 3 

Oo 34 

OF 8 1 

0011 



b 

INDwA 

bit twelve not cleared bY init 

OU1454 





* 




001433 

0856 

3001 



SF 

Sul 

$R5*1 

NON-ExISTANT kESOUrcF 

0 U14 36 

0 6 3 / 

5681 

0000 

T 


BGEZ 

SR5 » +$A 


001457 

0659 

0 F 61 

UOQC 



b 

I NDwA 

BIT THIRTEEN mOT Cl FARED BY INIT 

001456 





* 




OU14 3 9 

063d 

3001 



3>A 

SUL 

$R5»1 

BUS PARITY ERROR 

ou 1 4 60 

0630 

5661 

0000 

I 


BGEZ 

$R5 t ♦SB 


OU 1461 

Ob5t 

OFfai 

0007 



D 

INDwA 

BIT FOURTEEN NOT Cl FARED BY INIT 

UO146c 





* 




00146;) 

0660 

3001 



SB 

sul 

$R5,1 

uncorrected mlmory frrgk 

OU 1 464 

0661 

366 1 

0U03 



bgez 

$R5 * DNRA 


0 U 1 4 6 3 

0663 

0F61 

0002 



b 

INDwA 

BIT FIFTEEN NuT CLFARFD By INIT 

001466 





* 




001467 

0663 

838 3 



IONRA 

JMP 

j>B3 


001466 





* 




001469 





INDwA 

CALL 

ZV$lK»E32*ER32 

SEND EKROR MESSAGE 


0666 

FBCO 

0003 







0 668 

0360 

0000 

X 






Ub6A 

0F60 








086D 

0660 








0660 

1 F 5F 







001470 

086D 

OF 6 1 

OOCF 


E32 

b 

TRKC 

STATUS NOT CLEARED ry INITIALIZE 

001471 





* 




Oo 147c 





* 




001473 





* 

CHECK. 

THAT ERROR BIT GETS 

SET WHEN 

0 0 1 4 74 





* 

operation completed THAT 

SHOULD CAUSE ERRuR 

001473 





* 




00l47o 

0866 

9670 

0099 


CAbS 

LDR 

$R1 * sX'99• 

cylinder over max 

UO 1477 

0871 

9F4U 

1094 



STR 

$R 1 *TRNO 

CONTAINS ILLEGAL TRACK NUMBER 

0014/6 

06 7 3 

C3C0 

0C38 



LNJ 

$B4«FCWA 

MAKE CONFG WOkD 

0014/9 

0873 

8000 

1908 


$A 

1U 

<CWAb*CAOwA 

OUTPUT CONFIG WORD A 


0877 

0040 

106b 






001 h80 

06 79 

0761 

FFFB 



b I OF 

-$A 


001481 

08 7d 

6040 

107 F 



1U 

SEEk * CAOTW 

OUTPUT TASK WuRD To SFEK 


08 70 

0040 

105D 






00 1 46<i 

0671- 

0701 

00 00 

1 


BIUT 

♦ $B 


OU 1483 

088 1 

93C0 

1 33C 



LNJ 

SBltlOFA 


0 0 1 *+ o 





* 




0 0 1 4 8 3 

0663 

9670 

0050 


5>B 

LDR 

$R1*=2*0050* 


00 1 460 

0685 

93C0 

FC20 



LNJ 

$BI * T MO 

DELAY FOR 50 HILLISFCONDS 

001487 





* 




001486 

Obo 7 

6055 



CAbSA 

iu 

= SR5 »CAISw 

INPUT STATUS wOKD FROM CHAN A 


0686 

0040 

105C 






001^+89 

ObbM 

0761 

FFFC 



b 1 OF 

CABSA 


oU 





* 
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U U 1 4 9 1 

UddC 

bUuA 




Sul 

lRb,10 

POSITION SEEK ERROR BIT 

UU1h9^ 

ObdD 

bbOl 

OUO A 



DLZ 

$R5,CABSb 

CONTINUE IF SlT 

UU 1 *+93 






Call 

2VlLk*t33*ER33 

SEND ERROR MEjSAGE 


udRF 

FbCu 

UU03 







0b9 1 

u3bo 

0000 

A 






Ud93 

uF'80 








0 8 94 

0b96 








Ub9b 

1F 62 







uuIh9h 

0396 

OF 0 1 

FFFF 


L33 

Nup 

1 

SEEK ERROR bl1 IS mot SET 

0 U[493 





* 



UPON completion of task 

UUi49o 





* 



WHICH NORMALLY wOU| d 

Uul497 





* 



CAUSE An ERKOk 

UUi49u 

06 9u 

604U 

1069 


CAbSB 

lu 

INTI ,CAOCW 



08 9a 

U04U 

103L 






UU Ih99 

089C 

u / b 1 

FFFb 



blUF 

CAbsb 


U U 1 b 0 u 

0b9t 

b2b0 

1924 


IRK 

Lb 

<CPF L * = Z • 0001 • 

SEE IF 6/20 


U6MU 

0001 







U U 1 3 U i 

UbAl 

Ubbi 

02C2 



bbF 

BYT 

DQNT DO TRACK CAPACITY AND DIAGNOSTIC READ/WR 

Ou 1 30^ 

UBA3 

9 bbU 

1C6U 



LAb 

Ibl ,< IMt 


Uu 1 sUi 

08 Ab 

9FbO 

1373 



STb 

*Bl,<DEXb 


Uu 1 b 04 






CALL 

ZV1J.ZVlTC,TSTE 



Ob A 7 

FBCU 

0U03 







Ob A9 

U3bO 

0000 

X 






Ob Au 

OF bO 








ObMU 

1 9b9 







Uu 1 sOb 

ObAU 

C3C0 

UL/90 



LNJ 

1B4*C0 

CHECK DRIVE RcADY 

UU1306 

Ob AF 

8040 

1032 


lb 

lu 

INI 1,CAUCW 

PUT DRIVES ON TRACK ZFRU 


Ubb 1 

0U4U 

102 7 






UUl307 

Ubbi 

0 7bl 

FFFb 



blUF 

-16 


OuibOo 

Ubbb 

biCb 

iubb 


1A 

1ULD 

*BFaD,CAOLD,BRWH 

OUTPUT ADDRESo AND RANGE 


Ubb 7 

0040 

1024 







Ubb9 

0040 

126b 






U U i b 0 9 

Ubbb 

U 7 b 1 

F F F 9 



blUF 

-1A 


OUlblU 

Obbu 

b04G 

103L 


lb 

lu 

FMAI * CAOT W 

OUTPUT READ WiTE TASK 


ubbF 

004U 

101b 






UUlbli. 

ubci 

0 7b 1 

FFFb 



BlUF 

-IB 


0 uibl 2 

UbC3 

A3C0 

1267 



LNJ 

1B2 , to A IT 

WIT TILL OPERATION DONE 

UUlbli 





* 




UU 1 b 14 

ObCb 

9b 7 0 

1770 



LUk 

1R1 ♦ =:6000 


Ou 1 b 1 b 

UbC 7 

blCb 

1047 


1C 

1ULD 

*RbuF , CAILO »= 1Rl 

OUTPUT ADDRESu AND RANGE 


ObC9 

U04U 

1013 







ObCb 

00b 1 







UUiblb 

UdCC 

07bl 

FFFA 



blUF 

-1C 


001317 

OBCt 

604U 

1031 


ID 

lu 

01AuN,CAOTW 

diagnostic read wrtre task 


0 b UU 

0040 

1U0A 






UU 1 b 1 d 

0bU2 

0 7b 1 

FFFb 



blUF 

-ID 


Uu 1 b 19 





* 




UUlb2u 

ObU4 

bObb 



1L 

lu 

= $Rb *CAISW 

input status for Chan a* 


UbUb 

004U 

100F 






0Uib2i 

ObU 7 

0 7b 1 

FFFC 



blUF 

-It 


0Ulb2t 

UbU9 

9840 

103L 



LUR 

ikUCHAI 


00 1 b2i 

UbUb 

9F00 

191 F 



SIR 

$R1 » <TOUT A 


001324 

Obuu 

A3C0 

002 F 



LNJ 

1B2 1 CRPMC 

GO FIGURE CAPACITY 

Ou 1 b 2 b 





* 




Ou 1 326 

Ob OF 

C380 

166b 


CkPMA 

LNJ 

1B4,<C0B 

CHECK DRIVE kt-ADY 

001327 

Ob 11 

bibb 

190b 


IF 

luLD 

*<BFAD,CbOLD,BRWH 



Obti 

004U 

100 7 







ObLb 

0040 

12 3F 






OU 1 b2 0 

0817 

0 7b 1 

FFF9 



blUF 

-IF 


0Ulb29 

0 8 E9 

8040 

1012 


1A 

iu 

FMAI,CbOTw 

OUTPUT READ WkITE TASK 


ObLb 

0040 

UFFD 






UU1b 3u 

0 b t u 

07b 1 

FFFb 



blUF 

-1A 


00 1 b 3 1 

UbLF 

A3C0 

124 F 



LNJ 

1B2 9 wAlTb 


0 u 1 b 3 2 





* 




001b 3 3 

0 b F 1 

987U 

1770 



LUR 

lR1 , =6000 


Ou1b 39 

UbF 3 

8 lC8 

101b 


lb 

1ULD 

*RBUF,C81LD,=tkl 

OUTPUT ADDRESu AND RANGE 


UbF b 

0040 

OF F 4 







UbF 7 

UOb 1 







00133b 

ObFd 

0 7b 1 

FFF A 



blUF 

-IB 


Ou1b 3o 

UHF A 

b040 

100b 


1C 

Iu 

uIAu»N,CBOTW 

diagnostic read write task 


UbFC 

0040 

UFtC 






0 01 b 3 7 

Ub F L 

07bl 

FFFb 



biUF 

-1C 


UU133d 





* 




Ou 1 b 3 9 

0900 

BObb 



1C 

lu 

=1R3,CBISW 

input status FOR CHAN b 


0901 

0040 

0FF1 






0 0 1 b 4 u 

0903 

0 78 1 

FFFC 



blUF 

-1C 


u U 1 b 4 1 

0903 

9840 

1014 



LDK 

IRUCHBI 


0 u134 2 

090 7 

9 F 40 

1017 



STR 

1R1 , TOUTA 


Ou1343 

09Uv 

A3CU 

OOOA 



LNJ 

1B2,CRPMD 

GO FIGURE CAPmCITY 

001344 

U 9 O 0 

OF 8 1 

0031 


CRPMb 

b 

TRKC 

continue 

001b4b 





X 




UUib46 





* 




0 u 1 b 4 7 





* 

IS TRACK capacity WITHIN 

LIMITS? 

OU 1 34o 





* 




001349 

0900 

bObb 



Ckphc 

IU 

= $Rb,CAI1R 

INPUT RANGE FuR CHaN A. 


090b 

0040 

0FD3 






OUibbu 

0910 

u 7 b l 

FFFC 



biUF 

CRPhC 


OUlbbl 

09 12 

OF 8 1 

0006 



b 

CRPME 


OU1bb^ 

09 14 

80 bb 



CRPMD 

IU 

=1R3,CBIIR 

INPUT RANGE FuR CHANNFL B 


U9ib 

0040 

OF DA 






OUlbbi 

09 1 7 

0781 

FFFC 



blUF 

CRPmD 


001334 

09 19 

U970 

02AD 


CkPME 

cm 

iRb * =685 

capacity WITHIN LOwFRLlMlT 

Ou 1 bbb 

09 1 b 

0201 

0006 



bL 

CRPmF 


UU 1 bbo 

0910 

D 97U 

0413 



CMR 

lR5,=104b 

CAPACITY WITHIN UPppR LIMIT 

0 U 1 b b 7 

09 1 F 

0301 

0002 



be 

CRPMF 


Ou 1 b 5 0 

092 1 

6382 




JMP 

lb2 

WITHIN LIMITS,RETURN 

UUl3b9 





* 




001360 





CRPMF 

CALL 

ZV1I.ZV1TC,C0NE 



0922 

FbCO 

0003 







U 9 2 4 

U380 

0000 

X 






0926 

OF 80 








09 2 7 

1 D46 







001361 






CALL 

ZVSTH»TOUTA 



092b 

FbCO 

0003 







09 2 A 

D38U 

UOOO 

X 






U92C 

UF8U 








0920 

191F 







UU1364 






CALL 

ZV11.ZVSTC,SPOUT 

TRACK CAPACITY OUT OF TOLERANCE 


0921 

FbCO 

0003 







0930 

U380 

0000 

X 






0932 

OF 80 








0933 

1D19 







001363 






CALL 

ZV1lR,E34,ER34 

SEND ERROR MESSAGE 
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0934 

FbCO 

0003 







0936 

0380 

0000 

X 






09 36 

OF 80 








0939 

093b 








09 3 A 

1F 65 







001564 

093b 

0F01 

FFFF 


E34 

NOP 

$ 

TRACK CAPACITY OUT OF TOLERANCE 

00 1 b6t> 





* 




OU15 6 6 

0930 

8280 

19 3F 


IKkC 

Lb 

<PFL♦=Z * 0001» 



U93F 

0001 







0015.67 

0940 

0501 

F84C- 



BBT 

NEXT 


001 56b 





* 




001569 





* 

* ..... 




001571 





# 




001572 





* 


OIAGNOSTIC 

WRITE/kEAd test 

00 I 5 7d 





# 




0 0 1T L> 





* 

wk! TE 

PACK FOR DIAGNOSTIC 

READ 

001576 





* 


HEAoERS ARE AlL ZEROS 

0015 7 7 





* 


DATA IS ALL ZEROS 


00 Ib 76 

0944 

9bbU 

1C72 


DAG 

Lad 

$B1»<IMF 


001b 7 v 

0944 

9 F 60 

1573 



S Tb 

SB I* <DEXb 


OOibbu 






CALL 

ZV$T.ZVSTC,TSTF 



0946 

FbCO 

0003 







0946 

0380 

0000 

X 






094 A 

OF 8 0 








094l> 

1996 







uU158 1 

094C 

6 740 

0FB6 



CL 

RTYCT 


001564 

094E 

6751 




CL 

= $Ri 


001586 

0941“ 

8752 




CL 

= SR4 


001584 

0950 

9 CCu 

OF BD 



LOb 

$61*bFAO 

WRITE BUFFER STARTING ADORES 

OUibBb 

09 b 4 

0670 

0066 



LOK 

SR3, = 2*0068* 


UUl58o 

09b4 

AF 50 



DW to 

SIR 

$R2 *$bi. + $R1 

5T0RE WORD OF ZEROS ON 68 LQCS 

0 0 I b B 7 

09bb 

3701 

FFFE 



bOEC 

$R3*DWW 


001bBo 

09b 7 

AF 40 

OF AE 



SIR 

$R2 * TRNG 

ZERO TRACK 

OOibBv 

09b9 

C3CU 

0CE4 



LNJ 

$64,CO 

CHECK FOR DEVICE RFADY 

ooib9o 

09bo 

A64U 

OFbF 



LOR 

$R2,CFiN 


00 i b9 i 

0950 

2601 

OoO 3 



bLZ 

$R2,0WX 

BRANCh - IF OnE DRiv/F ONLY 

001594 

09bt" 

C3CU 

0005 



LNJ 

$b4,CUb 

CHECK - CHAN d IS RFADY 

00 i b9 3 





* 




001594 

096 1 

6 75 5 



DWX 

CL 

= $R3 

COME HERE - It ONLY ONE DRIVE 

001b9b 

0964 

b05 5 




10 

=$R3,<CAOIC 

CHAN A. INTRPT CONtROI WORD 


0963 

0000 

18b A 






001596 

096 5 

0701 

0003 



biOT 

DWXm 


ou1b9 7 

09 6 7 

93C0 

1256 



LNJ 

$bl,IOFA 


001b9B 

0969 

A64Q 

0 F b 1 


DWX A 

LOR 

$R2 ,CHN 


001b99 

096d 

4601 

0006 



bLZ 

$R2,DWAC 

BRANCH - IF OuLY ONF DRIVE 

OU1600 





* 




OOioOi 

0960 

6055 




Io 

= $K5 *CBOIc 

CHAN b. INRPT CONTROL 


096E 

0040 

OF 79 






00i 0 O 4 

09 7 0 

0 701 

000 7 



b 1 01 

OW Ab 


001603 

09 7 2 

93C0 

124b 



LNJ 

$61,IUFA 


0 0 i o 0 h 





* 




OOioOb 

0974 

L670 

6000 


bw AC 

LOk 

$R6,=2*8000* 


00 lbOo 

09 7o 

LF 40 

0F9A 



SIR 

$R6 ,FLAG 

INDICATES DIAGNOSTIC 

001607 





* 




001oOo 

097b 

6 740 

OFBF 


DW Ab 

CL 

CWAo 

CLEAR WORD TO BE OUTPUT 

00160 9 

09 /A 

8000 

1906 


DWb 

io 

<CWAD * <CBOWA 

confg word a to Chan b 


09 70 

0000 

1 btC 






00 1 6 1 0 

09 7L 

076 1 

FFFb 



bi OF 

DWb 


001611 

09BU 

6040 

UF7A 


owe 

io 

SEtN ,CbOT w 

seek chan b 


09B2 

0040 

0F66 






00 1 6 1 c 

0964 

0761 

FFFb 



d i OF 

owe 


00 16 1 6 

0966 

8 740 

OF 70 



LL 

CRT K Y 


00 1 6 1 4 





* 




00 16 1 b 

09 66 

8 1C6 

OF 85 


DWb 

iOLO 

*BFAD,CAOLD,bRWH 

address and range to CHAN a 


096 A 

0040 

OF 5 1 







0960 

0040 

1198 






0016 1 6 

0966 

0 76 1 

FFF9 



blOF 

DWD 


001617 

0990 

6040 

0 F 6 b 


OWE 

I 0 

FMAT,CA01W 

CHAN a REaD-wRITE task 


0994 

0040 

0 F 48 






0 O 1 6 1 6 

0994 

0761 

FFFb 



blOF 

OWE 


00 io 19 

0996 

CbCC 

FFF1 



LAB 

$b4 ,DwD 


001620 

0996 

A3C0 

1192 



Ln J 

$B2 » WAI T 

WAIT *TIL DONl. 

001621 

099A 

8054 



DWLA 

Io 

= $Kc * CAIIR 

input residua rangf from chan a, 


099b 

0040 

OF 46 






0Ulo2<s 

U99b 

076 1 

FFFC 



blOF 

OWEm 


00 1 o2 3 

0 991 

A 9 7 0 

OGQG 



Ci v 1k 

$R2 » =0 


001624 

0 9 A 1 

0901 

000 A 



bL 

OWtb 

BRANCH - IF RmNGE IS 7EK0 

00162b 

09 A3 

A840 

OF 5 3 



LOR 

$k2 , CRTRY 


001626 

09 Ab 

' A970 

0003 



CMK 

$R2 , = 3 


00162 7 

_ 09A 7 

0901 

0 A C 7 



bL 

RRDRVt 


OU 1 62b 

0 9A9 

bAco 

OF 40 



INC 

CRTKY 


001629 

09AU 

6 38 4 




JMP 

$64 


00 1 d30 





* 




001631 

0 9 AO 

6 ACu 

OF 59 


OWtb 

1 nC 

TRNu 


00 1 o34 

09 Ac 

A640 

OF 5 7 



LOK 

$R2 , T RNo 


Ooio33 

O9b0 

A9 7 0 

0040 



CHK 

$R2,=X*4D* 

over max? 

0 0 1 o 3 4 

0 9 b2 

0900 

0904 


Own 

be 

<DWM 


00 1 o3 b 

0 9b4 

<_3Co 

OAF 7 



LnJ 

$B4,FCWA 

FORM WORDS 

00 lb3b 

U9b6 

6040 

oF 5 1 


DwF # 

10 

CWAO , CAUWA 

WORD A TO A 


09b6 

0040 

OF 2 b 






Oo io3 / 

0 9b A 

0761 

FFFb 



blOF 

DWF 


Oo 1 o 3 b 





* 




0 o 1 o 3 9 

09bO 

6000 

18F b 


Dwo 

iu 

<SEtK,CAOTW 

SEEK A 


0 9bL 

0040 

OF 1L 






0 U 1 0 4 U 

0900 

0 76 1 

FFFb 



biuF 

DWG 


00104i 

0 9 04 

6 74 0 

OF 34 



Cl 

CRTKY 


OU1o4t 





* 




001643 

0904 

816 6 

I9ut 


OwH 

ioLo 

*<BFAD,<CBOLD,bRWH 

OUTPUT ADDRESb AND RANGE 


0906 

0000 

18 Eb 







09Co 

0040 

1 1 bb 






O 0 i 6 4 H 

0 9 0 A 

0761 

F F F 9 



blOF 

OWFi 


Oo 1 64 b 

0900 

8040 

OF 2 F 


Owl 

10 

FMAUCBOTW 

WRITE CHAN b TASK 


0 9 0 L 

0040 

OF 1A 






OO1640 

0900 

076 1 

FFFb 



biuF 

OW I 


00 1 64 1 

0904 

9bCo 

FFFi 



LAb 

$B 1 * OWFi 


OU lo4o 

0904 

m3C0 

116A 



LnJ 

Sb2,WAITb 

WAIT •TIL DONe 

0 0 i O 4 4 

0906 

6054 



0 w 1A 

io 

=$R4,CBIIR 

GET RESIDUAL kAnGl 


0907 

0040 

OF 18 






oo 1 obO 

0909 

0761 

FFFb 



b i OF 

OW I M 


00 lob 1 

0 9 Ou 

A970 

0000 



Cnk 

SR2,=0 


001652 

09 Ob 

0901 

000 A 



bL 

OW I b 

BRANCH - IF RmNGE IS 7ER0 



V_>' 
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001obd 

0 9 Oh 

Ab40 

Oh 17 


LUK 

$R2 «CNTKY 


Ou1o34 

U9t 1 

A970 

0003 


CHK 

SR2 * = 3 


u u 16 5 b 

09L3 

0901 

UA bb 


bb 

kRDKVE 


UU1b 5 U 

09tb 

OACO 

Oh 11 


INC 

CRTkY 


U01o57 

0 9 L / 

8384 



JhP 

$B4 


Uulobto 




* 




001ob9 

09La 

A840 

Oh 10 

Owib 

Lok 

SR2«TRNO 


00 io6o 

09 tM 

A970 

00417 


CMR 

$R2 »= X•40* 


001661 

09EC 

0901 

0003 

DWJ 

bb 

OR 

DGNt - GO RbAo AND COMPARE 

U0ib6c 

09tb 

Oh b 1 

Fh bb 


b 

DW6 

DO ANOTHER TRaCK 

UU1 06 3 




* 




UO1064 




* 




001bb 3 




* 

01AGNOST1C ktAO - BG1H DRIVbS 

OOI 066 




# 




001067 

09ho 

804U 

Oh 11 

Ok 

10 

INIT»CAOCw 

CHAn b CONTROL WORD 


09h 2 

0040 

Obt 6 





00106 b 

09 h 4 

07 b 1 

hhhb 


b IGF 

OR 


ooio6y 

09 h b 

8740 

Oh Oh 


CL 

TRNO 

CLEAR TRACK 

00 1o7o 

0 9 h b 

8 740 

ObF h 


CL 

LRCA 

CLEAR DRIVE A ERROR COUNTtk 

001571 

09 h A 

8740 

Obht 


CL 

tRCo 

CLEAR DRIVE b ERROR COUNTER 

Ou1b 7 l 

09hC 

0 /40 

Oh Ub 


CL 

CWAu 

CLEAR toQRD A i0 BE OUTPUT 

Oo 1 d73 

09h t 

8740 

OF 12 


Cl 

FLAo 

CLEAR READ-wRlTt F| a& 

00 1 0 74 

0 AUU 

8000 

1908 

Okb 

10 

<CWAD*<CbGWA 

WORD A TO b 


0A02 

0000 

lobO 





0 0 1 0 7 5 

0 A04 

0781 

h h F b 


biOh 

uRb 


OU1 0 7b 

OA06 

8 040 

Ob F 4 

DRC 

10 

bEEh * C60T W 

SEEK b 


OAUb 

0040 

OtbO 





Ou 1 0 7 7 

0 A 0 A 

078 1 

F FFd 


b 1 OF 

ORC 


00167b 

OAOU 

8 74 0 

UbbA 


Cl 

CRTkY 


Ou 1 0 7 V 

OMUL. 

084 0 

Ubt9 


LOK 

Sk3,ERCA 

get chan a eRkok Count 

Ou1b8u 

0 A 1 0 

Oh 4 0 

Ubh 4 


SI k 

$R3,kTYCT 


oolob 1 




* 




OulbB^. 

0 A 1 Z 

8 iCb 

ObF 0 

Ohb 

1 oLO 

*R6uF*CAiLO«b ROT 

OUTPUT AODREuS and range 


0 A 1 4 

U 0 4 0 

ULOb 






OA 1 O 

U040 

ill! 





00 ib83 

OAlb 

0781 

FhF9 


bl Oh 

oRO 


UU 1 0 8 4 

uAi A 

8740 

ObF 1 


CL 

SAVlA 

CLEAR SAVE LOlATIGn 

00168b 

OaIC 

8040 

Obt 3 

Okb 

io 

01AdN * CAGTW 

READ DlAGNObTiC CHan A 


O A1 b 

0040 

ObbO 





Ou 1 080 

0 A 4 0 

0781 

h h F b 


b 1 Oh 

ORE 


00108/ 

0A44 

A3C0 

1108 


LNJ 

SB2 * WAI T 


OUI 080 

0AZ4 

Ab8U 

OA 1 2 


LAb 

SB2t<0R0 


UU ioB9 

0 A2o 

0840 

UbDl 


LOK 

3>R3,£RCA 


00 io9U 

UMZ5 

bh 40 

ulOC 


SlK 

Sk3,kTYCT 


00 1 o9 1 

0m2 A 

b3Cu 

OOF 6 


LNJ 

SB3 * SM 

AM*b Ok? 

Ou1094 

0A2u 

b840 

UbD8 


LOK 

SR3,kTYC7 


0 0 1 0 9 i 

0A21 

bF 40 

U t_0 9 


bTK 

SR 3 *LRCA 


U 0 1 b 9 4 




* 




0 U 10 9 b 

0 A3U 

8 ACO 

0 LUb 


INC 

TRNo 

INC TRACK NUMutK 

Ou1o9o 

0A34 

A840 

OlD3 


LOK 

$R2 »TRNO 


001697 

0A34 

a97 0 

0040 


Oik 

Sk2♦=X , 4D» 

OVER MAX? 

00 1 09b 

0 a3o 

0900 

0 A56 

OkbA 

bt 

<DR i 


0 01 0 9 9 

0 a 3 b 

C3CG 

0A73 


LNJ 

S84*FCWA 


0 u 1 7 0 0 

0 A3a 

8040 

ObCO 

OkF 

10 

CwAo*CAOWA 

WORD A TO A 


0 a3C 

U040 

UbAl 





001/01 

Oa3t 

0781 

FFFb 


b 1 OF 

oRF 


U01704 




* 




001 /03 

0 A4 0 

8 04 0 

ULbA 

OkG 

10 

bEEh *CAOT W 

SEEK A 


0A44 

0040 

Ot 98 





oul7 04 

0 A44 

U7 6 1 

FFFd 


bioF 

ORG 


00i /Ub 

0 A4b 

8 74 0 

ObbO 


Cl 

CRTkY 


001 /Oo 

0 A4b 

DbOO 

18 F 9 

okga 

LOK 

sR3*<ERC6 


001/07 

0 A4 A 

bh 40 

ObbA 


b FK 

SR3,RTYCT 


OU 1 /Ob 




* 




oul /09 

0A4L 

0 188 

190F 

OkH 

1 OLO 

*<RbUF*CbILD*3RDT 



0 A4L 

0040 

Ub9b 






0 AbO 

0040 

1007 





0 u i 7 1 0 

0 A b 4 

0/81 

FFF 9 


b 1 Oh 

OkH 


Ou 1 / 1 i 

0 Ab4 

8740 

0Ld7 


CL 

bAVLA 


oul / 14 

OAbo 

8040 

0lA9 

Ok I 

lo 

uIAuN,CbOTW 

READ d 


OAbo 

U 0 4 0 

0090 





OUi V lb 

0 Ab A 

0 781 

FFFb 


bloh 

Ok I 


00 1 / 1 4 

U A bo 

A300 

i Ob 2 


LN J 

SB2 *wAITb 


ou 1 (lb 

u A b b 

At:CO 

hF 00 


LAb 

Sb2,DRH 


OUi / lo 

0 AbO 

o840 

0098 


Lok 

SR3* ERCb 


OUi /1 7 

0 A 6 4 

bF 40 

00A2 


bTK 

SR3 »kTYCT 


OUi / 1 u 

0 A O 4 

b3Cu 

OObL 


Ln J 

ib3,SM 

AM»b AtL OK? 

0 0 i / 1 9 

0 Abb 

bb 4 0 

0090 


LOK 

$R3,KTYCT 


OUi /20 

U Abo 

b h 4 0 

0b90 


STK 

bR3«LRCb 


001/21 




* 




0 0 i l Zc 

0 A b M 

Ab 4 0 

Ub9b 


Lok 

bR2»TRNO 


00172b 

0 AbO 

A 9 7 u 

0U40 


Cmk 

3>R2 ♦ = X ’ 4b~* 

OVER f.Ax? 

0 0 1 7 2 4 

0 Abb 

0901 

U003 


bt 

ok AA 

DONE - DO NEXI TEST 

OUi /2b 

Oa7 u 

OF 81 

rh8h 


b 

ORB 


OUi72 0 




* 




001/2/ 




* 

OAIoNuST IC KbAO ANALYSIS 


oul /2b 




* 




oul / 2 9 

0a /4 

9840 

ObAA 

OkAA 

LOK 

bkitPCNT 


oui/3u 

UA /4 

A840 

0083 


LOK 

iR2,tRCA 


oui / 31 

0 A / O 

0840 

0082 


LOK 

bk3»tkCb 


oui /3b 

0 A / 8 

1 AU1 

uobO 


b m2 

SR 1*ORAH 


00 1 /3b 

0/\ 7A 

LAOi 

ou 1 3 


buZ 

$R2«ORAC 


0 0 i 7 3 h 

OA /O 

3 AO 1 

UUo 3 


boZ 

SR3 »ORAB 


00 1 / 3b 

Oa /L 

Ohb 1 

UOLO 


b 

oAGC 


Oui /3o 








00173 / 

0 AO 0 

bh 4U 

uu9t 

OKAb 

bTK 

SR3 * TOO IA 


00 1 / 3o 

0 AO 2 

A 8 4 0 

uL9 7 


LOK 

$R2 * CHbI 


001739 

0 Ao 4 

Ah 40 

009b 


bTK 

SR2*T0UTb 


0017 4u 

0 AO 6 

9300 

10F 1 


LN J 

sBl*RTYMSG 


001/91 




* 




001 / 9-4 

U A 0 0 

9 84 0 

0L91 

Ok AG 

LOK 

SRIiCHBI 


0 017 9 3 

0 A d A 

9 h 4 0 

ubbb 


bfk 

SRI»BNED 


uoi /49 

0 Ao O 

Oh 8 1 

0029 


b 

oRAl 


0 01 /4b 




* 




oul / 4 O 

OAdb 

AF 40 

Ub9o 

Ok AC 

STk 

SR2»TGUTA 


u 0 1 7 4 / 

0 A 9 0 

9840 

Ob8 7 


LOK 

SRi » CHAI 


0 U1 Z4b 

0A92 

9F4u 

uobO 


b rk 

SRI * IQUTb 


oul / 4 9 

0 A 9 4 

930o 

1 Ot 3 


Ln J 

SBl»kTYMbG 


uU1 / bu 

0 A9b 

3901 

uo 1 b 


btZ 

SR3 1 ORAP 


Oui / b i 

OA9 0 

bh 40 

Ubbb 


bTK 

SR3,TGUTA 


0 017 b 4 

0 A 9 A 

9840 

Ob/h 


Lok 

SRltCHbi 


Oui 7 b b 

0 A9 0 

9 F 4 U 

Ub83 


b I K 

SRI*TGUT b 


0 0 1 7 b 4 

0 A9b 

9300 

1009 


LN J 

SBl*RTYMSG 




i I 1 LL 0 1 lib 3 i »KtV t * 
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U U 1 7 b b 

0 Amu 

A9 7 U 

U006 



ChR 

SR2 * =X * 06 * 


uOi /bu 

UMAe 

02 81 

0022 



bub 

DRAF 


uul 757 

U Am A 

b97o 

0006 



CHR 

SR3 * = X• 06 * 


uui /bo 

UAA6 

0281 

FFtl 



but 

ORAu 


u u 1 7 b 9 

UMAb 

8 ALU 

Ue7A 



1 IN*C 

PCNi 


00176U 






CALL 

ZV$i• ZViTC»RT YI NO 

RETRYING HESSmGE 


UmAM 

1 bLU 

0UU3 







UA AO 

D380 

0000 

A 






Umal 

OF 80 








OAAF 

lCDb 







Uui / 6i 

OAdO 

uFbi 

F L91 



b 

OAG 


UOi /t)4 





* 




Uui / 6 3 

Ortu 2 

98*+(J 

Uebb 


OKaO 

Luk 

SRI 1 CF 1 AI 


uul / 6 * 

U ADA 

9FA0 

OLA 1 



STK 

SR 1»BMtD 


uui /6b 





* 




uul / 6u 

U Abb 

8 ACO 

0L66 


ORAL 

IRC 

PCNI 


u 017 6 7 

UAbb 

93Lu 

1008 



UmJ 

sbUSNPMSG 


Uul /'bo 






CALL 

ZVStk * E35 *tR3b 

SEND ERROR MESSAGE 


0 ADA 

/* bLO 

0003 







U Abb 

0380 

0000 

A 






U Abe 

Of- 80 








U AbF 

UAL 1 








UACU 

1 F 6 8 







UUI 7 69 

UAL 1 

OF 8 1 

0U9P 


L3b 

B 

OAGC 

DIAGNOSTIC REmD FAn FD 

Uui/ 7 u 

UA03 

OF 8 1 

FL7L 



b 

OAG 


UOi / 71 





* 




uui77c 

uACb 

b97u 

0008 


DRaF 

ChR 

$R3 ♦ = X * 06 * 


U U 1 7 7 u 

UAL / 

0381 

0 U 3 D 



bLb 

oRAl 


UU1 774 





* 




UUi /7b 

0 AL9 

a 9 7 u 

000 A 


ORAh 

ChR 

$R2 ♦ =X • 04 • 


UUI / 70 

U ALU 

U28 1 

000 7 



but 

ORAi 


Uul / 7 7 

U aLu 

d970 

000 A 



CHR 

SR3,=X»04» 


uU 1 / 7o 

OmCF 

0281 

0010 



bLb 

ORAh 


uul779 

UADi 

UFbi 

0080 



_b 

OAGC 


uui /8u 





A 




uUl /tii 

UAU3 

b970 

OoOa 


ORA I 

ChR 

SR3*=X»04* 


uul7 be 

U AUb 

0281 

OUUC 



but 

ORAj 


U U 1 7 b 3 

U A U 7 

08 AU 

uLlt 



LOR 

SR5iBMED 


u u i / a h 

U AU9 

L8 AO 

0L3L 



Lok 

SR4,CHA1 


uu1 /8b 

U AUu 

L9bb 




CHR 

$R4, = S>R5 


UUi7 bo 

UAUL 

09 01 

0035 



bt 

ORAN 


UUI 7 87 

U AUL 

LFAU 

OLAi 



SIR 

Sft4,T0UTB 


uul /8b 

U ALU 

OF 81 

00 1 b 



b 

l>RAr 


UOi 789 





* 




Uul / 9 U 

OAt 

9 3 CO 

1004 


oRAJ 

LNJ 

ib1 iSOLONG 


UOi 791 






call 

ZVSLK*t36*tR36 

send error MESSAGE 


Umla 

F bLO 

0003 







U A t o 

038U 

0000 

A 






UALb 

UF 80 








UAL9 

UAbb 








UAL A 

IF 6b 







UOi 792 

UAbb 

OF 8 1 

007 3 


L36 

b 

OAGL 

GO TO NEXT TEdT 

UUl793 





* 




uul79* 

U Abb 

08 AO 

0L08 


OR AH 

LOR 

SR5*bMtD 


u u 17 9 b 

0 A t F 

L8A0 

0E2 A 



LOR 

3>R4,CHbI 


UUI796 

0 AF i 

L9bb 




CHR 

$R4*=$Rb 


Uui / 97 

0 AF z: 

0901 

00 IF 



bL 

ORAh 


00179b 

OAFA 

LFAU 

0L2B 



ST K 

$R4 «T OUTB 


U u 1/ 9 9 





* 




U u i b 0 u 

OAF 6 

9 3C0 

1 GAO 


ORAK 

LN J 

Sbl*REMMED 


UUlbOl 

0 AF b 

8 7 AO 

0 E24 



CL 

PCN ) 


QOioOz. 






CALL 

ZV$tK*E37,ER37 

send error message 


OAF A 

FbCO 

0003 







oafc 

0380 

0000 

A 






UAFb 

OF 80 








OAF f 

GBOi 








UbUU 

1F bt 







UU1b03 

ObOl 

UFbi 

0050 


E37 

b 

OAGC 


UU1oO* 





ORAL 

CALL 

ZVSI•ZVSTCiRRMtD 



UbU3 

FBCO 

0003 







UbUb 

0380 

GOOD 

A 






0bU7 

OF 80 








UbUb 

100C 







UUlbOb 






call 

ZV$tR*E3b*ER38 

SEND tRROR MESSAGE 


0bU9 

FbCO 

U003 







UbUb 

0380 

0000 

A 






UbUb 

UF 80 








UbUL 

Obi 0 








U b 0 F 

1F 7 1 







UU1bOo 

Ubiu 

UFbi 

0053 


L3b 

b 

dYT 

GO TO NEXT TEsT 

OulbO? 





* 




UUlbOb 





DR Aft 

CALL 

ZV$1.ZVSTCtABI 



Obi <L 

FbCO 

0003 







Obi A 

D38U 

0000 

A 






Ob 16 

uFbU 








Obi / 

1 D7b 







UOibUV 






call 

ZVStk*E39 * EK3 9 

SEND tRROR MESSAGE 


Ob 1 b 

FbCO 

0003 







UblA 

0380 

UUOU 

A 






Ob ic 

UF 80 








Oblu 

OblF 








Ob 1 L 

1 F 7a 







UUiblU 

ObiF 

0F81 

0044 


L39 

b 

bYT 


UUiol 1 





* 




UUiblb 





* 




U U i b 1 3 





* 




001814 





* 




uulblb 





* 

scan 

HEMORY FOR AM»S AFTER 

DIAGN READ 

Uulblo 





* 




UU 1 b 17 





*Fl = 

I NOt A 1 

Ft = HOR FB = OATA F8 = 0ELETE0 OATA 

001b 16 





* 




UU 1 b 19 

Od 2 i 

87 b 1 



SH 

CL 

= SRi 


001820 

Ob22 

875 7 




CL 

= $R 7 


001821 

Ob23 

9CCU 

uotb 



LUO 

SBURBUF 

READ bUFFER SIARTIng ADDRESS 

00 lo2b 

0023 

A85D 




LOR 

SR2*SB1.+SR1 

LOAD FIRST WOkD 

UU 1 a 2 3 

0b2b 

89D2 




CMZ 

= 3>RZ 


001b2<t 

0B2 1 

0981 

0009 



bNt 

SHAA 


UU1b2 b 

Ob29 

9970 

098C 


SMh 

CHR 

$R 1 * =Z * 098C • 

ALL DONE? 

UU lo26 

0b2b 

0281 

OOlt 



bet 

SHE 


00 1 b27 

Ub2D 

A85D 




LoR 

SR2 fSbl. + SRl 

LOAD NEXT WORu 

00182b 

0b2b 

89D2 




CMZ 

~$RZ 

IS IT ZERO? 

001829 

GbziF 

0901 

FFF9 



bt 

SMA 


001830 

0b3i 

A970 

FLOU 


SHAA 

CHR 

$R2*=Z*FE00» 







HILL OiMb3* * Kt V e» 
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0 u 1 6 3 1 

00 3 b 

09bl 

0003 



tut 

bMB 


Uo163<l 

003b 

01-61 

0011 



b 

SMO 

BUMP COUNT ANo CONTINUE 

Ou I 6 3 6 

003 7 

A9 70 

OOF t 


Stob 

CMk 

$R2 * =2 * OOFh• 


Uult>i*+ 

0 03 9 

0901 

uoob 



bb 

bMO 

BUMP COUNT AN 0 CONTINUE 

GO I o 3 6 

Oo3l> 

A97U 

FbOU 



Cl v iK 

SR2 ♦ =Z * FbOO • 


U 0 i t> 3 0 

0 d30 

0961 

0003 



bNt 

SMC 


GO 1 b 3 7 

0 03 b 

0 F b 1 

000 7 



b 

SMD 

BUMP CONT AND CONTlNUF 

Uu Lb 3b 

004 1 

A 9 7 0 

UoPd 


SMC 

Cmk 

Sk2 » = Z* OOFb* 


0 U 1 6 3 9 

0 U4 0 

090 1 

0 0 U 3 



bt 

bMD 

BUMP COUNT ANo CONTINUE 

UUioHU 

004b 

OF 6 1 

6 Ft 3 



b 

bMA 

NO MATCH FOUNo - Must BE AN EDC CHAR 

0 0 16 4 1 

004 1 

6 AO 7 



SMO 

lHC 

= $R 7 

BUMP COUNT 

G Li i b 4 ^ 

0046 

OF 61 

F FLO 



b 

bMA 

continue 

U U i o 4 3 

0 04 4 

F 9 7 0 

0034 


SMb 

CMK 

SR7 * = Z•0034• 

CORRECT NO. uF AM*s? 

(Ju i o44 

0 04 0 

0901 

0003 



bb 

bMF 


GUIo46 

004(1 

OF 6 1 

0002 



b 

bMR 

COUNT WRONG 

0U1o4d 

uobu 

6 3 63 



SMF 

JMP 

sb3 

RETURN TO CALlER 

G G 1 6 4 7 





* 




0 0 1 b 4 b 

oob 1 

6 AC 0 

ubb3 


bMK 

INC 

RTYlT 

BUMP TOTAL COUNT 

0 u 1 b 4 v 

0ob3 

6 A Co 

U0A3 



1 imC 

CRTkY 

BUMP CURRENT lOUNT 

ou 1 o 6 u 

0 D b b 

A640 

UuA 1 



LOk 

SR2♦CRTRY 


OOi bb 1 

Oob 1 

A970 

0004 



Cmk 

$R2 * = X * 04• 


001 bbc 

Oob 9 

0261 

0002 



bbt 

SMS 


0 0 1 8 6 j 

Obbo 

6362 




jink 

Sb2 

GO RETRY 

Ou i 6 b 4 

OobL 

6 7 4 0 

Ub9 A 


SMS 

Cl 

CRTkY 


0 0 i b b b 

Oobo 

6363 




Jink 

Sb3 

ABORT THIS TRmCK - TRY NEXT 

00 i bbo 





* 




OOibb / 

Oob b 

6260 

19 3 F 


OAGC 

Lb 

<PFl* = Z»0001 • 



obbi 

uoul 







Oolbbb 

ubo2 

0 600 

U 1 6b 



buT 

<Nb aT 


0 u 1 b b V 





* 




oulb6u 





* 













001o6b 





* 




UOib63 





* 

b 

Y T b ADDREbb 

I N G T E b 1 

0 0 i b 6 4 





* 













0 0 i b 6 b 





* 




uu1b6 / 

0 0 04 

67 66 



BY 1 

Cl 

= 3>R6 


0 0 i b 6 b 






Call 

ZVS1.ZV$TC,TS1G 



Obob 

1- bCo 

0003 







Obb l 

0360 

0000 

A 






0069 

OF 60 








0 0 6 A 

19C0 







uO 1 b6 9 

Obbo 

6066 



SA 

Iu 

= Sk6♦<CAUIC 

INTERRUPT CONTROL TO CHAN A 


ObbC 

0000 

160A 






ou1b 7u 

0 b b E 

0 76 1 

FFFC 



blOF 

-SA 


00 1 o 7 i 

Ob 70 

6040 

0091 


bb 

10 

INlTfCAOCW 

INITIALIZE CHmN A 


00 72 

U040 

Ubbb 






001 b 7*: 

Oo 74 

0 761 

FFFb 



blOF 

-SB 


0 0 i b 7 3 

00 7 6 

6 740 

0D92 



CL 

SECT 


001b ^4 

Ob 7b 

6 7 40 

0b6b 



CL 

TRNu 


UO 1 b 7 6 

Ob 7 a 

6 7 40 

008b 



CL 

CWAo 

CLEAR CONFG. *ORD A 

00 lb7o 

Od7l 

6740 

0D8U 



Cl 

CWBO 

CLEAR CONFG. tfORD B 

0 0 i b 7 7 

00 70 

A3 CO 

0947 



LNJ 

SB2 ♦ F P 

FILL bUFFEF FOR FORMAT WRITE 

UO1o lb 

0 p 6 0 

6IC6 

0080 


SC 

iULO 

*BPaD*CA 0LD, bRWH 

send AOoRESb mno rangf 


0062 

0040 

Ub6 9 







0064 

GU4U 

OF AO 






001679 

Oobb 

0761 

FFF9 



biUF 

-SC 


001obu 

O 066 

6040 

0073 


SO 

io 

KMA 1,CAOTW 

FORMAT REAO-WKITE TASK 


Oob A 

0040 

0060 






uulbbi 

0 0 6 C 

0 76 1 

FFFb 



b A OF 

-SO 


Oolbbb 

Oobb 

A3C0 

oF9C 



LNJ 

$B2 «WA1T 


OOlbbb 

0090 

9bb0 

1 CbO 



LAb 

SB1 * < I Mb 

•TEST E* 

Go 1 bb4 

0092 

9 F 60 

1673 



bib 

SB 1 1 <DEXb 


oolbbb 

0094 

6 740 

00 76 



Cl 

CWbo 

CLEAR WORD b 

001bbb 

0b9o 

C670 

1234 



LOK 

SR4,=X»1234* 

DATA PATTERN 

OUlbb / 

0096 

CP 40 

oobb 



b T K 

SR4,0P 


oOlbbb 






Call 

2VSP,bUFw,DP,RLw 

FILL bUFFEk WITH Data PATERN 


009 a 

FbCO 

oo03 







0090. 

0360 

0000 

A 






Od 9 t 

uPbo 








009F 

3000 








GbMU 

1904 








0 0 A 1 

1024 







00 1 689 

OoA2 

6040 

006 7 


$E 

10 

CWBUiCAOWb 

SEND OUT WORJ b To chan a 


0 0 A 4 

0040 

Ub3 A 






001690 

0 b A b 

0 76 1 

FFFB 



b I OF 

-$E 


001691 

ObAo 

1C01 




LOV 

SRI * = 1 


00169^1 

OOA9 

9CC0 

0064 



LOb 

sBl»BF AD 


OU1b93 

ObAb 

6191 



SP 

1ULU 

SB1.SR1,CA0LD,RLB 



ObAL 

0040 

002 F 







Goal 

0040 

OF 74 






001694 

GbbO 

0761 

F F FA 



b I OF 

-$F 


00169b 

0002 

6040 

uDAb 


$ A 

10 

OATm «CAOTW 

TASK WORD TO *RITE 


Oob4 

0040 

0026 






001b9b 

Obbo 

0761 

FFFb 



biuF 

-SA 


0 01 b 9 l 

oobb 

A3C0 

0F72 



LNJ 

SB2,wAIT 


UUib9o 





* 




UO1699 

ObbA 

6040 

004F 


bb 

iu 

CW6U*CA0WB 

CONF. WORD b TO CHan A 


ObbC 

0040 

0022 






00 lS»Ou 

oobb 

076 1 

FFFb 



blOF 

-$B 


UOlvOl 

UbCO 

61C6 

0041 


SC 

iOLD 

*R6UF *CAILD*RLb 



0 o 02 

0040 

001A 







OoC4 

0040 

OF 6b 






00190c 

OoCb 

0761 

FFF9 



blOF 

-SC 


0U1v03 

OoCb 

6040 

0036 


SO 

10 

OATm,CAOTW 

DATA READ-WRI IE TASK 


ObCA 

0040 

0010 






OU1904 

ObCC 

07 61 

FFFb 



biUF 

-so 


OUI 9 O 6 

ubCE 

A3C0 

0F5C 



LNJ 

Sb2 * W A I T 


00190b 





* 




00190 f 

GbbO 

9846 

003E 



LuR 

SR 1**RBUF 

LOAD FIRST WORD READ 

0 U 1 9 0 b 

bbD* 

9970 

3412 



CMK 

SR1i=X»3412* 

COMPARE TO EXPECTED 

001909 

OoD4 

0901 

OOOA 



bL 

bATA 

continue If ejual 

00l9l0 






CALL 

2V$tR»E40,ER40 

SEND ERROR MESSAGE 


0 bOb 

FBCO 

0003 







ooDb 

0360 

0000 

X 






OoOA 

OF 60 








ObOb 

oobb 








ObUO 

1 F 77 







001911 

Oobb 

0F01 

FFFF 


b40 

NOP 

s 

OR ELSE REPQRI ERROR 

00 19 Ic 

UtiDF 

8040 

002A 


BATA 

Io 

CWbO * CAOWB 

CONF. WORD B TO CHan A 


Obtl 

0040 

OCFO 






001913 

Got 3 

07 81 

FFFB 



blOF 

BAT* 






riTLt DiMS3,»RLV t* 
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OU19 1 * 

Obtb 

1001 




LOV 

SR 1 * = 1 


UU1913 

Obto 

9000 

0028 



LOB 

SB1»RBUF 


UUlVlo 

Obtb 

b 191 



Sb 

1UL0 

SB1.SR1*CAILD*RL6 



OotO 

0040 

00F3 







UbLu 

0040 

OF 3 7 






0ui9l 7 

ObtD 

0781 

FFFA 



B10F 

-$E 

DATA KEAD-WRI1E TASK 

UU Is* lb 

UbLF 

b040 

oOOE 


$F 

Iu 

OATa,0A0TW 


GbF 1 

00*0 

O0E9 






00 i V 19 

GbF 3 

0 781 

FFFb 



biOF 

-SF 


001920 
00192 i 

GbF 3 

A300 

OF 33 


* 

LNJ 

Sb2,i«AIT 


00192* 

GbF 7. 

9 8*8 

0017 



LDK 

SR1»*RBUF 

COMPARE WITH lXPECtfD 

Oo i'i 'Zd 

GbF 9 

99 70 

3434 



OFIN 

SR 1 * = X * 3434• 

UO192* 

GbF d 

0901 

OOOA 



BE . 

BATu 

BRANCH IF EOOaL 

001923 

UbFo 

FbCO 

0003 



OALL 

ZVSlR «E41«ER41 

SEND ERROR MESSAGE 


Obi- F 

0380 

0000 

A 






0001 

OF 80 








0002 

000* 








0003 

1 F7 A 







00 192b 

0004 

OF 01 

FFFF 


04 1 

NOP 

s 

OR ELSE-REPORT ERROR 

00 i 02 l 





* 




00102b 

OOOo 

bOAO 

0003 


BATb 

lu 

CWBO * CAGW6 

CONFG* WORD Tu CHAn A 


000b 

0040 

O006 






00 1020 

0 00 A 

0781 

FFFb 



BIOF 

dATd 


00103U 

000O 

8731 




OL 

= $Ri 


001031 

0000 

9000 

0001 



LOB 

SBURBUF 


00193c 

BOOK 

6191 



SA 

1 OLD 

SBUSKl*CAILD*RLB 



0010 

0040 

0000 







00 lb 

00*0 

OF 10 






00 lo33 

001* 

07 8 1 

FFFA 



BIOF 

-SA 


UU193* 

OOlo 

bO*0 

OOfc 7 


SB 

lu 

DATa,CAOTW 

DATA READ-WRI IE TASK TO CHAN A 


00 1 b 

uo*o 

0002 





001033 

001A 

0781 

FFFb 



BiOF 

-SB 


00 1 0 3o 

00 lu 

A300 

oFOE 



LNJ 

$B2,WAIT 


0 010 3 7 
Ou 10 3 b 

00 1 b 

984b 

OOF 0 


# 

LdR 

SRI**RBUF 

COMPARE WITH lXPECtfD 

0 u 10 3 o 

oc*u 

9 9 70 

3412 



OMR 

$R1* = X * 3412• 

001040 

uG22 

0901 

OOOA 



bt 

bYT o 

NEXT TEST IF tQUAL 

UU 19*1 

002* 

FbOO 

0003 



OALL 

2V$LR*E42*ER42 



OOzb 

0380 

0000 

A 






002b 

OF 80 








0029 

002b 








002 A 

1 F 70 







001044 

002b 

OF 0 1 

FFFF 


t42 

nop 

S 


0 0 i 0 4 3 





* 




0 0 10 4*+ 





* 




0 0 i 0 4 3 

0020 

8280 

193F 


BYT 0 

lb 

<PFl,=Z»0001» 



0g2F 

0001 







Ooi04o 
0010*7 

t i i \ \ UiiA 

003U 

0300 

0180 


* 

bbT 

<NEaT 


VJ VJ J. V *T O 

Ou104o 





* 




00 lobu 





* 


SHORT R 

ANGE TEuT 

00 1 Obi 
00 105c 





* 

*- 







W 
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UU1953 * WKITfc/KtAD WITH RANGE OF LESS THAN 128 BY IES 


001954 





* 




001955 

0C32 

9060 

1070 


SRT 

LAb 

SB 1»<IMH 

•TEST F• 

00195o 

0L34 

9F80 

1573 



STb 

Sb1 1 <DEXB 


0O195 7 






OALL 

2VST.2VSTC*TSTH 



0036 

FbCO 

0003 







0036 

D360 

0000 

X 






U03A 

OF60 








003b 

1900 







001956 

0030 

6740 

oocb 



OL 

OWAd 

CLEAR OONFG. wORD a 

001959 

0031 

6740 

000b 



Ol 

OWBd 

CLEAR OONFG. wORD B 

001960 

0040 

0300 

0A03 



LNJ 

SB4,CIB 

clear input buffer <one track) 

001961 

0042 

6740 

0001 



Ol 

DP 


00196c 






OALL 

2VSFNbOFW,DP*RLW 

FILL BUFFER WITH ZfROS 


0044 

FbOo 

U003 







004o 

0360 

0000 

X 






0046 

OP 60 








0049 

3000 








004 A 

1904 








004b 

1024 







001963 

U04d 

967U 

AbOO 



LOR 

SRI* = 2* ABCD* 

TWO byte data 

001964 

004L 

9 F 40 

0065 



STR 

SRI*DP 


Ou1963 

0050 

1002 




LDV 

SR 1 * = 2 


00196o 

0031 

9 F40 

0003 



STR 

SRlfRNG 


0 u 19 6 7 






OALL 

ZVSF*BUFW*DP*RNG 

store two byti-S in ruffer 


0053 

FBOO 

0003 







0053 

0360 

0000 

X 






005 7 

OF 60 








0036 

3000 








0059 

1904 








UO 5 A 

1913 







ou196b 

005b 

6040 

OOAO 


$ A 

lu 

OWAd,OAOWA 

SEND OONFG A. (TRACK 0 >/ 


005u 

0040 

0080 






001969 

003 F 

0 781 

FFFb 



biOP 

-SA 


0019 70 

0061 

6040 

00A6 


Sb 

10 

OWBd.OAOwB 

SEND OONFG. B (SECTOR 0) 


0 06 3 

0040 

0076 






001971 

0065 

0 761 

FFFb 



BlUF 

-SB 


0ol97c 

006 7 

6040 

0093 


4>0 

10 

SEEn,OAOTW 

DO A SEEK 


0069 

0040 

0071 






001973 

006b 

0 761 

FFFb 



blUF 

-so 


001974 

0O6D 

600*: 




LDV 

SR6,=2 


001975 

0060 

6106 

0G9F 


St 

1 OLD 

*BFAD,CAQLD»=SR6 

write two bytls 


0070 

0040 

006b 







0072 

0056 







001976 

00 7 3 

0761 

FFP A 



blOF 

-SE 


001977 

0073 

6040 

0068 


SF 

10 

data.oaotw 

send DATA write task 


00 7 7 

U040 

0063 






Ool97b 

00 7 9 

0 761 

FFFb 



blUF 

-SF 


001979 

007b 

A300 

OLAF 



LNJ 

SB2,wAIT 

WAIT TILL DQNfc 

00 i960 





* 




001961 

007 D 

6751 




OL 

= SR 1 


00196*. 

0070 

9F 46 

0090 



STR 

SR 1»*BFAD+1 


001963 

OOoO 

6040 

0069 


SA 

10 

CWBDiOAOWB 

OONFG B (SECT. NUMrfR) 


0062 

0040 

0050 






001964 

0064 

0761 

FFFb 



b 1 OF 

-SA 


001965 

0066 

6002 




LDV 

$R6 * 5 2 


001966 

OGo 7 

6106 

0067 


sb 

1 OLD 

*RBuF*CAILD*=sR6 

READ TWO BYTtS 


0069 

0040 

0053 







OObb 

0056 







001967 

0060 

0761 

FFF A 



blUF 

-SB 


001966 

0060 

6040 

006 F 


SO 

10 

DATa*OAQTW 

DATA READ TASn 


009U 

0040 

0G4 A 






0 0 19 6 9 

0092 

0761 

FFFb 



blOF 

-so 


001990 

0094 

A300 

0E96 



LNJ 

SB2 » w AI T 

WAIT TILL IT IS DONF 

001991 





* 




00 1 99*1 

0096 

6756 




OL 

= SR6 


001993 

0097 

F 300 

ObAt 



Lmj 

SB7 * OB 

COMPARE READ AND Write bUFFERS 

001994 





* 




uo 1 993 

0099 

6260 

193F 


SR TO 

Lb 

<PFL ♦ = Z •0001 * 



009b 

0001 







001996 

0090 

0500 

0180 



bbT 

<NEXT 


001997 





* 




001996 

001999 





* 




00<io0o 





* 




002o01 





* 


F 0 R 0 E 0 

ERROR TEST 

00200*: 





* 

* _ 




UU4UUj 

002004 





* 




002005 

0096 

9B60 

1061 


PET 

LAB 

SB 1 » <IMI 

•TEST G* 

OO^uOo 

OC AU 

9P6u 

15 73 



STb 

Sb1 * <DEXb 


0 0 c 0 0 7 






OALL 

ZVST • ZV$TC * TST I 



OOA6 

FBOO 

uOO 3 







00A4 

0360 

0000 

X 






00A6 

0 F 6 G 








OGa 7 

1906 







00*:oOo 

00 AO 

6740 

u05 F 



OL 

OWAd 

CLEAR OONFG. m 

00*: 0 O 4 

00 Aa 

6740 

005 F 



OL 

OWBd 

CLEAR OONFG. b 

00201 0 






OALL 

ZVSFR ♦ BUFW *RLw 

FILL OUTPUT BUFFER 


ooao 

FBOO 

0003 







OOAL 

0360 

0000 

X 






OObU 

OFBO 








OObl 

3000 








00b6 

1 b2 4 







Ou*:o 11 

0 66 3 

6040 

0054 


SO 

10 

cwad.oaowa 

OONFG A # TO CmAN A. 


00b3 

0040 

0026 






002o 1 *. 

00b 7 

0 761 

FFFb 



blOF 

-so 


00201 ^ 

0069 

6040 

UG50 


SE 

10 

CWBd,OAOWB 

OONFG. B TO OhAN A 


OObb 

004 0 

0023 






Oo2 0 1 4 

OGoD 

0 761 

FFFb 



dIOF 

-SE 


00*:0 15 

OGbT 

6040 

oG3b 


SF 

Id 

SELk.OAOTW 

SEEK TO TRACK 0 


OObl 

004U 

0019 






Oo*:o 1 0 

0003 

0761 

FFFb 



b I OF 

-SF 


002o17 

0003 

6260 

1924 



Lb 

<CPFL » -Z•000i* 

6/20 OR 6/30 


0 06.7 

0001 







002 0 1 6 

000 6 

0560 

OOFF 



BdF 

< F E T B 

BRANCH-IF 6-20 

0o2u 19 

OOOa 

610b 

0043 


SA 

I OLD 

*6FADfCA0LD,RLB 



0000 

0040 

0 O 0 F 







OOOl 

0040 

0t54 






Ooz u2 u 

OODU 

0761 

FFF9 



blOF 

-SA 


Oulo21 

0 0 D2 

6040 

0020 


sb 

Io 

01AoN.CAOTW 

DIAGN WRITE 


00D4 

0040 

0006 






0 u2o2*: 

OODo 

0761 

FFFb 



blOF 

-SB 
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00 202b 
0u2o24 
Uo*:u26 

Oo2u2o 
0 u 2 U 2 7 


uu^u2o 
0 U 2 o 2 9 

0 o 2 o 30 
U 02 o 31 

002032 
0 O 2 O 33 
U u 2 o 3 *♦ 
U 0 2 0 3 3 
UG*:u 36 


0 0 2 u 3 7 
002036 
002 u 39 
0 O 2 O 4 6 

00204 l 
00204*: 


O02U43 

00204*+ 

0 U 2 U 4 3 
0 G 2 O 46 

0 0 2 u 4 7 
Ou 2 04 o 
002049 
0 0 2 O 5 0 
002 u 5 1 


002032 

002053 

0o2o34 

002055 

002036 

002057 

0 o 2 o 5 b 
0020 59 

00 *.o 60 

002061 

002062 

002063 

002064 

0 o 2 o 65 


002066 
0 0 2 0 6 7 
00206 b 

002069 
002070 
002071 
00207 *. 
002073 
002074 
002073 
002076 
002077 
00207 b 
002079 
0 U 208 U 
002O81 


002082 

002083 
002084 
0 U 2 O 8 3 
002086 
002087 

00208 b 

0 O 2 O 89 

002090 

002091 

002092 

002093 

002094 

002093 

002096 

002097 

00209 b 


OCob A3Cu OL52 

0CoA 8040 OC2F 
oCOL 0040 0C02 
UCob 0/81 FFFb 
oCto blCb 0C2 1 
GCL2 0040 OuFm 
oCb4 0040 0t3t 
OCLo 0781 FFF9 
OCL8 8040 OC13 
UCLA 0040 ObFO 
oCLC 0/81 FFFb 
OCLL 8055 
OCLF 0040 OuF 3 
OCFi 0781 FFFC 

OcF 3 5004 

UCF*+ 5801 000A 

OCF6 FbCO OO03 
0CFo 0380 0000 
OCFa OF 8 0 
OCF d OCPU 
OCF; 0. 1 F 83 

OCF D OF 01 FFFF 

OCFF 9870 2000 
0001 8031 

0002 0040 OliDC 

0l/04 0781 FFFC 

UOOo 81C8 oCOb 
000b 0040 0bD4 

000A 0040 Otia 
OOOL 0781 FFF9 
0 uOl 8040 ObtF 
00iu 0040 ObCA 
0012 0781 FFFb 

001*+ 8035 

0015 OOhO ObCF 
001 / O 7 8 1 FFFC 

0019 3007 

uOlA 3801 OUOA 

00' 1C FbCO 0003 
UOlt 0380 0000 
U020 OF 80 
0021 0023 

Oo22 1F 86 
0023 OFUI FFFF 

u023 8040 OdDC 

002/ 0040 Obbl 

002 v 0781 001F 
002b 9870 9000 

002o 8051 

002b 0040 ObAF 

0030 0781 FFFC 

0032 8040 UbC8 

0034 0040 UbA6 

003t> 0781 FFFb 

0038 8055 

0039 0040 UbAb 

003b 0781 FFFC 

0030 500A 

Go3t 5801 GOOF 


0040 

0042 

0044 

0045 

0046 

0047 


FbCO 0003 
0380 O 000 
OF 80 
0047 
1 F 89 

OFO 1 FFFF 


0049 8280 193 F 

004 b 0001 

OOhC 0500 0180 


004 b 9 b 80 1 C 86 

Oo 5 U 9 F 80 1573 

0052 FbCO 0003 
0034 0380 0000 

0056 OF 80 
0057 19 E 4 

0058 8040 0 bA 9 

005 A 0040 Ob 7 t 
005 C 0781 FFFB 

005 b 8740 0 bA 9 

0060 8740 ObA 5 

0062 8740 0 BA 6 

0064 E 870 8000 

0066 EF 40 ObAA 

0068 C 3 C 0 0743 
006 A A 3 C 0 075 b 

0 D 6 C 8000 1908 
006 b 0000 18 EC 

0 D 70 0781 FFFb 

OD 72 8040 Ob 88 
0074 0040 0 B 74 



LimJ 

SB 2 , toA I T 

WAIT TILL IS oONE 


FETA 

Iu 

CWBo»CAUWB 

-READ ERROk- 


SA . 

blOF 

1 OLO 

FLTa 

*RBUF ,CAILD*RL 6 



sb 

blUF 

10 

•• 3 > A 

DATA,CAOTW 

DATA READ TASk 


SC 

BluF 

iu 

-SB 

=$R 3 ,CAISW 

INPUT STATUS rtGRD 



blOF 

-SC 




Sul 

BLZ 

CALL 

SR 5,4 

SR 5 ,Ft TB 
bVSbR»L 44 ,LR 44 

LOOK AT READ tRROR RIT ONLY 

READ ERROR BIT SET, it«S OK 

SEND ERROR MESSAGE 


E 44 

NOP 

S 

READ tRROR eil NOt SFT* REPORT ERROR 


FETB 

SA 

LOK 

lu 

SR 1 * = Z * 2000 * 

=$Rl,CA 0 W 6 

-UNSUCC SEARCH--— 


SD 

b I OF 
lUED 

— $ A 

*RbuF ,CAlLD,RLb 



St 

blOF 

iO 

-$D 

OATa , CAOTW 

DATA READ TASk 


SF 

blOF 

10 

-$E 

=$R 5 ,CAISW 

INPUT STATUS 



bluF 

-SF 




SUL 

BLZ 

Call 

$R 5,7 

SR 5 ,FLTT 

ZVSbR»t 43 »tR 45 

UNSUCCESSFUL bEARCH. IT*S OK, 

SEND ERROR MESSAGE 


E 43 

NUP 

S 

OR ELSE REPOR] ERROR 


FETT 

10 

INIf,CAOCW 

INITIALIZE CHaN A 


$A 

blOF 

LOP 

iu 

FETC 

SR 1 »=Z• 9000 • 

= $R 1 ,CAOWA 

-SEEK ERRCk- 

sent confg A FOR Track 9000 


Sb 

biOF 

10 

— S A 

SEEK,CAOTW 

SEEK THE TRACK 


SC 

biUF 

10 

••SB 

=Sft 3 ,CAISW 

INPUT STATUS 



b i OF 

Sol 

bL 7 

CALL 

SR 5,10 

$R 5 ,FMT 

ZVSlR,E 46 ,ER 46 

5 EEK ERROR, If* S Ok 

SEND AN ERROR MESSAGE 


t 46 

* 

HOP 

S 

OR ELSE REPOR| ERRpR 


FETC 

Lb 

<PFL,sZ •0001 * 



* 

* 

BBT 

<NE*T 



* 

* ■ 

* 

— — 


F OR M A T W 

R I T E / R E A D 


* 

MULTIPLE DRIVE FORMATTER 



FMT 

LAb 

ST b 
CALL 

SB 1 , < 1 MJ 

SB 1 ,<Dtxb 
ZVST.ZVSTCtTSTJ 

•TESTj * 


HD FA 

Io 

INITtCAOCW 

INITIALIZE CHaN A 



b i OF 

HD Fa 




CL 

CL 

CWAD 

TRNu 

SECT 

CLEAR CONFG A 



LOR 

STR 

$R 6 , -Z* 8000 1 

SR 6 , FLAG 

INDICATE MULTIPLE DRIVE 


MDF 6 

LNJ 

LNJ 

Sb 4 ,FCWA 
$B 2 , FP 

FORM CONFG. A 

FILLOUT BUFFER FOR FORMAT ONE TRACK 

£ 

HDFbA 

IO 

<CWAD*<CBOWA 

CONFG, A TO ChAN B 

1 

£ 

bi OF 

HDFbA 



HOFBB 

IO 

SELk,C 6 GTW 

SEEK B 







TULL D1MS3♦•RtV t« 
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0U2U99 

0076 

0781 

FFFb 



BIUF 

MDFbB 


0U210U 

0078 

8740 

Ob7t 



CL 

CRTRY 


002i01 

00 7 A 

81C8 

0B93 


MDFC 

luLO 

*bfao»caold*brwh 

SEND AODR AND RANGf 


00 7 C 

0040 

0b5F 







007E 

0040 

0UA6 






00210c 

0080 

0781 

FFF9 



blUF 

MDFL 


002103 





* 




002104 

0082 

8000 

16FC 


MDFD 

10 

<fmat*caqtw 

DO FORMAT WRliE ON CHAN A 


0084 

0040 

Ub56 






0O2I05 

0086 

0781 

FFFb 



B10F 

MDFD 


002 i Ot> 

008 8 

CbCO 

FFFL 



LAb 

$64♦MOFC 

GET IOLD ADDRcSS 

002107 





* 




00b 1 Ob 

008 A 

A3C0 

ODAO 



LIMJ 

$B2,1a|AIT 

TO FINISH FORmAT RfaD 

Ou2109 

0080 

8052 



MDFD6 

10 

= $Rb♦CA11R 

inpot range From chan a 


0080 

0040 

0b54 






0u2 1 10 

006 8 

0781 

FFFC 



b I OF 

MDFob 


002111 

0091 

A970 

0000 



CMK 

$R2 ♦ =0 


002112 

0093 

0901 

OOOA 



bt 

MOFOC 

BRANCH - IF RANGE 7FR0 

U02113 

U093 

A840 

0b6l 



LOR 

$R2♦CRTRY 


00211^ 

009 7 

A970 

0003 



CMK 

$R2 ♦ = 3 


002113 

009 9 

0901 

06D5 



bt 

RRDKVL 

REPORT ERROR IF FAti FD THRICE 

Ou2 116 

009b 

b ACO 

Ob5b 



I NC 

CRTkY 


002117 

0090 

8384 




JHP 

$64 

GO BACK AND TRY AGAIN 

002110 

0091 

8 ACO 

Ob6 7 


MOFOC 

INC 

TRNU 

GET NEXT TRACn 

002119 

OOAU 

A840 

Ob65 



LOR 

$R2 ♦ TRNO 


002120 

00A2 

A970 

004D 



CMR 

$R2t=X»40« 


OUb121 

00A4 

0900 

00b6 


MOFOA 

bt 

<MOFG 

BRANCH-IF LAS! TRACK 

002 12* 

00M6 

C3C0 

0703 



LNJ 

$B4♦FCWA 

OR ELSE FORM LONG WORDS 

002123 





* 




002124 

OOAb 

6040 

Ob5F 


MOFt 

10 

CWAu^CAOWA 

SEND CONFG. A TO CHAN A 


OOAA 

0040 

Ob33 






OU2J.20 

ODAC 

0781 

FFFb 



b I OF 

MDFL 


00212 b 





* 




OuZ121 

OOAt 

6040 

0b4C 


MDFF 

lu 

SEEk^CAOTW 

SEEK CHAN A• FOR THAT TRACK 


OOoU 

0040 

ub2A 






00212b 

00bb 

0781 

FFFb 



blOF 

MDFF 


0o2129 

00b4 

6740 

0b42 



CL 

CRTkY 


0u2 1 30 





* 




002131 

OOD6 

6166 

190E 


FIOFG 

luLO 

*<BFAD < <CbOLOf<BRWH 

SEND ADDR AND RANGF TO CHAN B, 


00b6 

UOOU 

latb 







OObA 

0000 

lb23 






00213b 

ODbL 

0761 

FFF9 



blOF 

MDFu 


002133 





* 




002134 

00»bL 

6000 

16FC 


MOFH 

lo 

<FMAT♦CBOTW 

DO FORMAT WRliE TO cHAN B 


OOLU 

0040 

Od2 8 






002133 

00C2 

0761 

FFFb 



blOF 

MDFii 


002136 

00C4 

Cb60 

0DB6 



LAb 

$B4 ♦<MDFG 

GET IOLD ADDktSS 

002137 





* 




002136 

00C6 

A3C0 

0D78 



LNJ 

$B2♦ WAIT6 


OUb139 

0 0C8 

8052 



MOFHA 

10 

=$R2,CBIIR 

INPUT RANGE FROM CHAN B 


0009 

0040 

0626 






002140 

UOCB 

0781 

FFFC 



BlOF 

MDFhA 


002141 

ooco 

A970 

0000 



CMK 

$R2 ♦ =0 


00bl4b 

ODCF 

0901 

OOOA 



bt 

MDFhB 

BRANCH IF RANvjE ZERO 

002146 

0001 

A840 

Ob2 5 



LOR 

$R2♦CRTRY 


002144 

0003 

A970 

0003 



CMR 

$R2♦=3 


002 i43 

0003 

0901 

0699 



bt 

RRDkV t 

REPORT ERROR IF FAtifD THRICE 

002146 

000 7 

bACO 

Obi F 



INC 

CRTkY 

OR ELSE TRY AuAIN 

002147 

0009 

8364 




JMP 

$B4 


002 14b 





* 




002149 

OOOA 

C840 

Ob 2b 


MOFHB 

LOR 

$R4 ♦TRNO 

GET'TRACK NUMbER 

00213u 

OODC 

0970 

0040 



CMR 

$R4♦=X•4D • 


002151 

OOOL 

0901 

0003 



bt 

NT SI A 

BRANCH -IF LAoT TRACK 

00215b 

ooto 

OF 8 1 

FF6 7 



b 

MDFu 

OR ELSE START ALL OVER 

002133 





* 




002154 

002155 





* 




002156 





* 


FORMAT RtAD BOTH 

DRIVES 

00215 7 





* 

£ «... 




002159 





* 




002160 

00L2 

9b80 

lC6b 


NTSTA 

LAb 

$61♦< JMK 

•TEST I» 

002161 

00L4 

9 F 80 

1573 



STB 

$B1♦bDEXb 


002162 






CALL 

ZV$I.ZV$TC*TSTK 



00L6 

FBCO 

U003 







000 6 

0380 

0000 

A 






OOLA 

OF 60 








OOLd 

19 F 9 







002163 

OULL 

8040 

Od 1 5 


NTSTAA 

lu 

INIT,CAOCW 

POSITION DRIVES ON TRACK 0 


OOLt 

0040 

OAtA 






002164 

OuF 0 

0781 

FFFb 



B1 OF 

NTS 1 AA 


002163 

ODF b 

8 740 

Obit 



CL 

FLAu 


O0216O 

OOF 4 

8740 

Ob2C 



CL 

HtRh 

CLEAR HARD ERROR 

002167 

OOF 6 

8 740 

ObOl 



Cl 

LRCa 


00216b 

OOF 8 

6 740 

ObOu 



CL 

ERCo 

CLEAR CHAN b C.RROR COUNTER 

002169 

OOF A 

6 740 

ObOb 



CL 

TRNu 


002170 

OOF L 

6 740 

OBOb 



Cl 

CWAu 


002171 

OOFt 

9 d60 

15 A 7 



LAb 

$B1♦ <DEJA 


00217b 

otoo 

9 F 80 

1 38t 



STB 

$B1♦ <DEKA +1 


002173 





* 




002174 

0102 

8000 

1906 


NA 

10 

<CWmD^<CBOWA 

WORD A TO CHAn b 
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0AA9 
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OF Ea 

19 1A 







002417 

OFEb 

OF 8 1 

0003 



b 

RNDl 


00241b 

OFEO 

OF 8 1 

0001 


RSRQ 

b 

RNDC 


002419 





* 




002420 





* 




002421 

OF EF 

8280 

193F 


RNQC 

Lb 

<PFL * = Z * 0001• 




f >\ 




I IILL ulhS3« «KtV E* 
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002422 

002423 

0(J^444 

OH 1 
Oh F 4 

0001 

0500 

0180 


* 

* 

bbT 

<NLxT 



00^:426 





* 





00242 i 





* 


0 P u A T E (6 

RECORDS) 


00242o 





* 





002^30 





He 

THIS ROUTINE UPDATES 

SIX RECORDS ON SIX 


00243 x 





* 

DIFFERENT TRACKS, 








* 





002^33 





* 





0 0 £ 4 3 4 

0 h h 4 

9bC0 

0CC8 


UP D 

LAb 

4B1*IMU 



U024 3 5 

OF ho 

9FC0 

05 7C 



ST b 

$B1*DEXB 



002436 






CALL 

ZV$t•ZVSTCiTSTU 




0 h h o 

h bCu 

0003 








0 h h A 

0380 

0000 

X 







Oh h 0 

Oh 80 









Oh h U 

1ACO 








UU2437 

Oh hL 

9870 

0003 



LDK 

*R1*=2*0003* 

TRACK AND SECTOR To 

WRITE 

00243b 

1000 

A8 70 

3333 



LDR 

SR2 *=2* 3333* 

DATA PATTERN TO WkTTF 

002439 

1004 

b3C0 

0021 



L.MJ 

$B3 * UDWX 

GO WRITE 


0o2^4o 





* 





002441 

1004 

9870 

0006 



LbK 

SRI*=2*0006* 

TRACK AND SEC 1 OK To 

WRITE 

002442 

1006 

A870 

6666 



LDK 

SR2 * =2 * 6666 » 

DATA PATTERN 


002443 

1008 

d3C0 

001b 



LNJ 

$B3 ♦ UDWX 

GO WRITE 


0u244h 





* 





002443 

1 00 A 

9870 

0009 



LDK 

SRI*=2*0009* 

track and SECTOR 


002446 

lOOL 

A870 

9999 



LDK 

SR2 * = 2 * 9999 ' 

DATA PATTERN 


00244 7 

loot 

O3C0 

0015 



LNJ 

SB3 *UDWX 

GO WRITE 


00244b 





* 





0o2h49 

10 io 

9870 

000 A 



LDK 

SRI *=2*OOOA» 

TRACK AND SEC I OK 


002450 

1014 

A8 7 0 

AAAA 



LDK 

SR2*=2*AAAA* 

DATA PATTERN 


002451 

1014 

b3C0 

OOOh 



LNJ 

SB3 ♦ UDWX 

GO WRITE 


00245c 





* 





002453 

1016 

9870 

000b 



LDK 

SRI ,=2*000B* 

TRACK AND SEC(OR 


002^54 

1 0 1 b 

A870 

bbbb 



LDK 

SR2 , = 2 • BBbB * 

DATA PATTERN 


002455 

1 0 1A 

b3C0 

0U09 



LNJ 

SB3 * UDWX 

GO WRITE 


0o243b 





* 





00245 7 

101C 

9870 

oooc 



LDK 

SKI *=2*000C* 

TRACK and sector 


00445b 

10 1E 

A8 70 

CCCC 



LDK 

SR2 , =2 • CCCC * 

DATA PATTERN 


002459 

1020 

B3C0 

0003 



LNJ 

SB3 , UDWX 

GO WRITE 


0O246O 





* 





002461 

1042 

Oh 80 

104 F 


Ubto A 

b 

<UDwb 

DO THE OTHER uRIVE 


00246c 





* 





002463 





* 

OPDAT t 

wRUE EXECUTION 



002464 





* 





002463 

1024 

9 h 40 

08E1 


UDwX 

SIR 

SR 1 * TRNO 

store track Number 


002466 

102b 

9 F 40 

U8L2 



STK 

SRI,SECT 

STORE SECTOR NUMBER 


002467 

1026 

A3C0 

U07F 



LNJ 

SB2 * F BS 

FILL the BUFFeR 


00246b 





* 





002469 

i 0 2 A 

C3C0 

0481 



LNJ 

SB4 * h CWA 

FORM WORDS 


002470 





* 





002471 

102C 

13C0 

0652 



LNJ 

SB6 * ST 

DO A SEEK 


0024 72 

1 04 t 

81C8 

ObDF 



IULD 

#BFAD*CA0LD*RL6 

OUTPUT ADDRESb AND RANGE 


1030 

0040 

08 Ab 








1032 

0040 

OAFO 







0024 7 j 

103* 

0701 

0003 



blOT 

UDWX A 



0024 74 

1036 

93C0 

0d87 



LNJ 

SB 1 * I UFA 



004473 

103b 

8040 

U8D1 


UDwXA 

10 

CWBD,CAOWB 




1o3a 

0040 

08 A4 







00247b 

103C 

0701 

0000 

r 


BIOT 

+ SA 



00247 7 

103E 

9300 

0b7F 



LNj 

SB 1 * I UFA 



00247b 

1040 

8040 

06BD 


3>A 

10 

DATm*CAOTW 

WRITE COMMAND 



1042 

0040 

0898 







002479 

1044 

0701 

0003 



biOT 

UDWaC 



002480 

1046 

93C0 

Ob7 7 



Lnj 

SB 1 * IOFA 



002481 

104b 

1870 

8000 


UDWXC 

LDK 

SR6 , =2 * 8000 » 



0o248c 

1 04 A 

EF 40 

08C6 



STK 

SR6 « FLAG 



002483 

1040 

A 3 CO 

UADE 



LNJ 

SB2 * WAIT 

WAIT UNTIL DOnE 


004484 





* 





002483 

1041 

8383 




JMP 

SB3 

RETURN TO CALLER 


002486 





* 





002487 

1 04h 

9870 

0003 


UDwb 

LUR 

SRI,=2*0003* 

TRACK AND SECTOR To 

WRITE 

00448b 

1031 

Ab 7 0 

3333 



LDR 

SR2,=2*3333* 

DATA PATTERN 10 WRlTF 

002489 

1053 

b3C0 

0021 



LNJ 

SB3 * UDWY 

GO WRITE 


004490 





* 





004491 

1033 

9870 

0006 



LDR 

SRI*=2*0006* 

TRACK AND SECTOR To 

WRITE 

00c492 

1037 

A870 

6666 



LDR 

SR2 * = 2 * 6666• 

DATA PATTERN 


OOc493 

1059 

b3C0 

001b 



LNJ 

SB3 *UDWY 

GO WRITE 


002494 





* 



- 


002493 

105b 

98 f 0 

OOUV 



LDR 

SR 1 * =2 * 0009 * 

TRACK AND SECTOR 


002496 

1050 

A870 

9999 



LDR 

SR2, = 2*9999* 

DATA PATTERN 


002497 

105F 

B3C0 

0015 



LNJ 

SB3 * UDWY 

GO WRITE 


00249b 





Hr 





002499 

1061 

9870 

OOOA 



LDK 

$R1* = 2 * OOOA• 

TRACK AND SECTOR 


002 3 GO 

1063 

A870 

aAAA 



LDK 

SR2,=2»AAAA* 

DATA PATTERN 


002301 

1065 

b3C0 

OOOF 



LNJ 

SB3 * UDWY 

GO WRITE 


002304 





* 





002303 

1067 

9870 

000b 



LDK 

SRI*=Z*OOOB* 

TRACK AND SECTOR 


002504 

1069 

A870 

bb Bb 



LDR 

SR2t=2*BBBB* 

DATA PATTERN 


002303 

106b 

B3C0 

0009 



LNJ 

SB3 *UDWY 

GO WRITE 


002506 





* 





002307 

1060 

9870 

OOOC 



LDK 

SR 1 * =2 * OOOC• 

TRACK AND SECTOR 


002306 

106h 

A870 

CCCC 



LDK 

SR2 * = 2 * CCCC• 

DATA PATTERN 


002309 

1071 

b3C0 

0003 



LNJ 

SB3 * UDWY 

GO WRITE 


002310 

1073 

OF80 

1061 


UDwC 

6 

<RUDR 

GO READ THE UPDATED 

RECORDS 

002511 





* 





00231c 





* 

UPDATE 

WRITE EXECUTION 



002513 





* 





002514 

1075 

9F40 

0890 


UDwY 

STR 

SR1*TRN0 

STORE TRACK NUMBER 


002515 

1077 

9F40 

0891 



STR 

SR 1 * SECT 

store sector number 


002516 

1079 

A3C0 

002E 



LNJ 

Sb2 * FBS 

FILL THE BUFFtR 


002317 





* 





00231 b 

10 7b 

C3C0 

0430 



LNJ 

$B4 * FCWA 

FORM WORDS 


002319 





* 





002320 

1070 

8040 

088A 


UDWYAA 

10 

CWAD,CBOWA 




107F 

0040 

086C 







002321 

1061 

0781 

FFF6 



biOF 

UDWYAA 



002524 





* 





002523 

1083 

8040 

0677 


UDWYA6 

10 

SEEK tCBQTW 




1085 

0040 

0863 












TITLE DiMS3 ♦ * R tV E* 


PAGE 32 


002 524 

108 7 

0781 

FFFb 



blOF 

UDWYAB 


0U2525 

1089 

81C8 

0884 


UDWYAC 

1 OLD 

*6FAD,CBQLDiRLB 



1080 

0040 

085F 







1080 

0040 

0A95 






00252b 

106F 

0781 

FFF9 



blOF 

UDWYAC 


00Zb 27 

1091 

8040 

0878 



10 

CWBD♦CBOWB 



1093 

0040 

0859 






00252b 

1095 

0701 

0000 

T 


blUT 

♦ $A 


002529 

1097 

9 3 CO 

0b26 



lnj 

SBUIOFA 


002530 

1099 

8040 

0864 


sa 

10 

DATAfCBOTW 

WRITE COMMAND 


109(3 

0040 

084D 






002b31 

1090 

0701 

0003 



BIOT 

udwyc 


002b32 

109F 

93C0 

Obit 



LNJ 

SBlflOFA 


002b33 

10A1 

18 70 

8000 


UDWYC 

LDR 

SR6 ♦ =Z f 8000 1 


002534 

10A3 

tF40 

086b 



STR 

SR6♦ FLAG 


002b3b 

10A5 

A3C0 

0A99 



LNJ 

$B2*WAITB 

WAITB UNTIL Dune 

002b3o 





* 




0 0 2 b 3 7 

10 A 7 

8383 




JMP 

$B3 

RETURN TO CALlER 

00253b 





* 

FILL 

oUFFEK FOR ONE SECTOR 

(DATA IN R2) (VIA &?) 

002939 





* 




002 b40 

10A8 

8751 



FBS 

CL 

= $Ri 


002541 

10A9 

D870 

0080 



LDR 

SR5♦=Z 1 0080 * 

WORDS TO WRITt. 

00254^ 

lOAb 

9CC0 

0862 



LDb 

SB1♦ BFAD 

WRITE BUFFER STARTING ADDRESS 

002543 

10 AO 

AF 50 



FbSA 

STR 

SR2♦Sbl•+SR1 

STORE IT 

002544 

10 At 

5 701 

FFFE 



BbEC 

SR5,FbSA 


00254b 

10b0 

8382 




JMP 

SB2 

RETURN TO CALLER 

0 0 2 5 4 o 





* 




002547 









002b4b 





* 




002549 





* 

Read 

AND COMPARE UPDATED DATA RECORDS 

00255O 





* 




0 0 2 5 5 i 





* — — — — — • 




002552 





* 




002553 

iObl 

9BC0 

ocio 


RUDR 

lab 

SBniMV 


002554 

lObb 

9FC0 

04 BF 



ST b 

Sbl♦DEXB 


002555 






CALL 

2VSI •ZVSTCnSTV 



1005 

FBCO 

0003 







I0b7 

P3bO 

0000 

X 






10b9 

OF 80 








lobA 

1 ADC 







002 5 5o 

lobb 

9870 

0003 



LDR 

$R1♦=2*0003* 

TRACK AND SECTOR 

002557 

lObO 

A870 

3333 



LDR 

$R2♦=2*3333* 

DATA PATTERN 

00255b 

lobF 

b3C0 

0021 



LNJ 

SB3♦RUDRX 

GO READ AND CuMPARf 

002559 





* 




002560 

10C1 

9870 

0006 



LDR 

SRI♦=2*0006* 

TRACK AND SECTOR 

002561 

10C3 

A870 

6666 



LDR 

SR2 ♦ =;Z *6b66• 

DATA PATTERN 

002562 

10C5 

B3C0 

001b 



LNJ 

SB3♦RUDRX 

GO READ AND CuMPARf 

002563 





* 




002564 

10C7 

9870 

0009 



LDR 

SRU=Z*0009* 

track and sector 

002565 

10C9 

A870 

9999 



LDR 

SR2♦ = 2 * 9999• 

DATA PATTERN 

00256b 

lGCb 

b3C0 

0015 



LNJ 

SB3♦RUDRX 

GO READ AND CuMPARf 

002567 





* 




00256b 

10C0 

9870 

OOOA 



LDR 

SRI♦=2 , 000A» 

TRACK AND SECTOR 

002569 

IOCF 

A87 0 

AAAA 



LDR 

$R2 9-Z *AAAA* 

DATA PATTERN 

002570 

1001 

b3C0 

OOOF 



LNJ 

SB3♦RUDRX 

GO READ AND CuMPARf 

002571 





* 




002572 

1003 

9870 

ooob 



LDR 

sru=z*ooob* 

TRACK AND SECTOR 

002573 

1005 

A870 

BBBb 



LDR 

SR2^=Z*B6BB* 

DATA PATTERN 

002574 

1007 

b3C0 

0009 



LNJ 

SB3♦RUDRX 

GO READ AND CuMPARf 

002575 





* 




00257b 

1009 

9870 

oooc 



LDR 

$ru=z*oooc* 

TRACK and SECTOR 

002577 

100b 

A870 

CCCC 



LDR 

$R2♦ = Z •CCCC 1 

DATA PATTERN 

002 5 7 b 

1000 

B3C0 

0003 



LNJ 

SB3♦RUDRX 

GO READ AND CuMPARf 

002579 





* 




002580 

100F 

OF 80 

not 


RUDRA 

b 

<RUDRB 

go do the othlR drtvf 

002581 





* 




002582 





# 

READ 

LXECUIION AND COMPARE 


002583 





* 




002584 

1OE1 

9F40 

0824 


RUDRX 

STR 

$R1 ♦TRNO 

STORE THE TRAjK NUmrFR 

002585 

10E3 

9F40 

0825 



STR 

$R1♦SECT 

AND THE SECTOk NUMrfR 

00258b 

10E5 

A3C0 

FFC2 



LNJ 

SB2♦FBS 

fill the buffer 

00258/ 





* 




00258b 

1 OE 7 

C3C0 

03C4 



LNJ 

SB4♦FCWA 

FORM WORDS 

002589 





* 




002590 

loE9 

t3C0 

0595 



LNJ 

SB6^ST 

DO A SEEK 

002591 





* 




002592 

lOtb 

8040 

08 1 E 



10 

CWBD^CAOWB 



1 o to 

0040 

0 7 F 1 






002593 

1 OtF 

0 701 

0000 

T 


blOT 

♦ $A 


0 0 2 5 9*+ 

1 OP 1 

93C0 

OACC 



LNJ 

SB1♦10FA 


002595 

1 OF 3 

8 1C8 

081b 


SA 

iOLD 

*R6UF♦CAILD^RLB 

OUTPUT ADDRESu AND RANGE 


10 F 5 

0040 

07E7 





. 


1 OF 7 

0040 

0A26 






00259b 

1 OF 9 

0701 

0003 



BIOT 

RUDKXA 


002597 

lOFb 

9 3C0 

0AC2 



LNJ 

SBinOFA 


00259b 

10F0 

8040 

0800 


KUbRXA 

10 

DATA^CAOTW 

READ COMMAND 


loFF 

0040 

07Db 






002599 

1101 

0701 

0003 



BiOT 

RUDKXB 


002b00 

1103 

9 3C0 

OAbA 



LNJ 

SBUIOFA 


002 b01 

1105 

8740 

080b 


RUDRXB 

CL 

FLAu 


00260*. 

1107 

A3C0 

0A23 



LNJ 

SBZ^WAIT 

WAIT UNTIL DOME 

OO2b03 

1109 

E870 

003P 



LDR 

SR6 ♦ = X * 3F * 


00260*+ 





* 




002605 

UOo 

F 3 C 0 

07 3 A 



LNJ 

SB7♦CB 

COMPARE THE buFFERs 

00260b 





* 




0 0 2 6 0 7 

1 10 0 

8 38 3 




JMP 

SB3 

RETURN TO CALlER 

0 0 2 b 0 o 





* 




002609 

not 

9870 

0003 


RUDRb 

LDR 

$R1♦=2»0003» 

TRACK AND SECTOR 

002b 10 

1110 

A670 

3333 



LDR 

SR2 < =Z*3333* 

DATA PATTERN 

002 b 1 1 

1112 

B3C0 

0021 



LNJ 

SB3♦RUDRY 

GO READ AND CuMPARf 

002b1c 





* 




00*16 1 3 

1 114 

9870 

0006 



LDR 

SR 1♦-Z *0006 * 

TRACK AND SECTOR 

002b14 

1 lib 

A870 

6666 



LDR 

SR2♦=2 * 6666 • 

DATA PATTERN 

0 0 2 o 1 5 

1118 

B3C0 

001b 



LNJ 

SB3♦RUDRY 

GO READ AND CuMPARf 

0o2o lb 





* 




002617 

1 1 1A 

9870 

0009 



LDR 

SRI ♦ = 2»0009* 

TRACK AND SECTOR 

0o2b 1 b 

me 

A870 

9999 



Lor 

SR2♦=2*9999* 

DATA PATTERN 

002 b19 

1 1 1 L 

b3C0 

0015 



Lnj 

SB3♦RUDRY 

GO READ AND CuMPARf 

002b2u 





* 




002621 

1120 

9870 

OOOA 



LDR 

SR1♦ = 2 * OOOA• 

TRACK AND SECTOR 

002o22 

1122 

A870 

aaaa 



LDR 

SR2♦=2• AAAA • 

DATA PATTERN 

002b2 3 

1124 

b3C0 

OOOF 



LNJ 

SB3♦RUDRY 

GO READ AND CuMPARf 

00262h 





* 
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00 2625 

1126 

9870 

000 b 



LOR 

$Rl,=2•OOOB* 

TRACK AND SECTOR 

002626 

1126 

A870 

BbBb 



LOR 

SR2, = 2 * BBBB * 

DATA PATTERN 

^frrrt -, 0026 2 7 

112A 

0300 

0009 



LllJ 

Sb3,RUORY 

GO READ AND CuMPARf 

M \ 00262c 





A 




■ 002629 

112 C 

9670 

0000 



LOR 

SRI, = Z * OOOC• 

TRACK AND SEC 1 OR 

X-^' 002630 

1126 

A670 

COCO 



LOR 

SR2 , =2 1 CCCC* 

DATA PATTERN 

002o3i 

1130 

0300 

0003 



LNJ 

Sb3 »RUDRY 

GO READ AND CuMPARf 

002o3<i 

1132 

0F80 

1169 


RUDRC 

b 

<UP0C 

go write deleted data 

002633 





* 




002634 





# 

rlad 1 

LXECUl ION AND COMPARE. 


002635 





A 




002o3o 

1134 

9 F 40 

07D1 


RUORY 

STR 

$>R 1, TRNO 

STORE THE TRACK NUMBER 

002637 

1136 

9F 40 

07D2 



STR 

SRI,SECT 

AND THE SECTGk NUMrfR 

002636 

1136 

A300 

F F 6 F 



LNJ 

$B2,FBS 

FILL THt BUFFtR 

002639 





* 




00 2 64U 

113A 

0300 

0371 



LNJ 

$B4,FCWA 

FORM WORDS 

002641 





A 




00264^ 

1 13C 

8040 

0706 


RUDRYC 

10 

CWAo,CBOWA 



11 3t 

0040 

07AD 






0U2643 

1140 

0781 

FFFb 



blu F 

RUDKYC 


002644 





A 




002645 

1142 

8040 

U7b8 


RUDRYD 

lu 

SEEk,C60TW 



1144 

0040 

07A4 






002646 

1146 

0781 

FFFb 



blOF 

RUDkYD 


00264/ 





A 




00264c 

1148 

8040 

07C1 


RUDRYE 

10 

cwbd,cbqwb 



1 14* 

0040 

07A2 






002649 

1 14C 

0761 

FFFb 



BlOF 

RUDkYE 


O02o5u 

1 14L 

8108 

0700 



I OLD 

ARBOF,CBILD,RLb 

OUTPUT ADDRESj AND RANGE 


1150 

0040 

0799 







1152 

0040 

09D0 






0U2651 

1154 

0701 

U003 



BIOT 

RUDkYA 


002o5*: 

1156 

9300 

0A6 / 



LNJ 

SB1»IOFA 


002653 

1158 

8040 

07A5 


RUDRYA 

10 

0ATa,C60TW 

READ COMMAND 


1 15A 

0040 

07bb 






0O2o 54 

1150 

0701 

0003 



biOT 

rudkyb 


0u2b55 

1150 

9300 

0A5F 



LNJ 

SBIUQFA 


002o5b 

1160 

8740 

07b0 


RUDRYB 

CL 

FLAu 


00265 7 

1162 

0870 

00 3 F 



LOR 

Sk6, = X* 3F« 


002656 

1164 

A300 

O90A 



LNJ 

$B2,WAITB 

WAITB until DuNE 

002659 





A 




00266 U 

1166 

F 300 

06DF 



LNJ 

$B7,CB 

compare the buffers 

U0266i 





A 




00266 ^ 

1166 

8383 




jup 

SB3 

RETURN TO CALLER 

002663 





A 




002664 





A 

WRITE 

oELETED DATA (6 RECORDS) 

0 U2 66 3 





A 


THI^ ROUTINE WRITES 

DELETED DATA ADDRESS MARKS 

002666 





A 


IN SIX RECORDS. 


002667 





A 




002666 





A 




002669 

1169 

8260 

1924 


UPOC 

Lb 

<CPFL,~2'0001» 



1 16D 

0001 







002 b7U 

1160 

0501 

0009 



bbT 

DEL 

CONTINUE IF 6/30 Or 6/40 

002671 






CALL 

ZV$I.2V$TC,MESGN 

OR ELSE END OF TEST MFSSAGE FOR 6/20 


1160 

FbOO 

0003 






£ 

1170 

0360 

uOOO 

A 





I 

1172 

OF 80 







1 

1173 

1043 







00267c 

1 1 / 4 

OF 6 1 

EFB9 



b 

RERUN 

GO AND RESTART 

0u2o7c 





A 




002674 





A 

A n- 




C/ yj C. QJ f J 

002676 





A 




002677 





A 

DLL 

t T E D DATA 

WRITE/RfcAD 

0 0 2 o 7 6 
002c79 





A 

A 




002680 





A 




002 o8i 

11 76 

9b0O 

0B50 


DEL 

LAb 

SB 1,1 MW 


0u2c82 

1178 

9F00 

03 FA 



STb 

SB 1,DEXB 


0u2o83 






CALL 

ZVSi.2V$TC,TSTW 



11 7 A 

FBOO 

0003 







1170 

0380 

0000 

A 






1170 

OF 80 








11 /1- 

1AEF 







002664 

ilcO 

9670 

0003 



LOR 

$R1,=2 1 0003• 

TRACK AND SEC 1 OR To WRITE 

002685 

1 162 

A670 

3333 



Lor 

SR2,=2* 3333• 

DATA PATTERN TO WklTF 

002686 

1164 

ti300 

U02 1 



LnJ 

sB3* wDDX 

GO WRITE 

0 0 2 6 6 7 





A 




00268 c 

1 1 06 

9 670 

0006 



LOR 

SRI,52* 0006* 

TRACK AND SEC 1 OR To WRITE 

002o89 

1186 

A870 

6666 



LOR 

SR2,=Z 1 6666• 

DAT A PATTERN 

002690 

1 16M 

b3C0 

UOlb 



LNJ 

$B3,WDDX 

GO WRITE 

002o9 i 





A 




00269c 

1180 

9670 

0009 



LOR 

SRI,=2'uo09» 

TRACK AND SECTOR 

002693 

1160 

A8 70 

9999 



LOR 

SR2,=2'9999 * 

DATA PATTERN 

002o94 

1190 

b300 

0015 



LNJ 

SB3,WDDX 

GO WRITE 

002695 





A 




002o96 

live 

9870 

O00 A 



LOR 

SR 1 , =2 * OOOA• 

TRACK AND SECTOR 

002697 

1194 

A870 

AAAa 



LOR 

SR2,=2•AAAA* 

DATA PATTERN 

002696 

1196 

b300 

OOOF 



LnJ 

SB3,WDDX 

GO WRITE 

002699 





A 




002 fUU 

1196 

9 6 70 

000 b 



LOR 

SRI,=2*0006* 

TRACK AND SECTOR 

002701 

119a 

A870 

bbBb 



LOR 

SR2,=Z'0bbB» 

DATA PATTERN 

00270c 

1190 

B300 

0009 



LNJ 

SB3,wDDX 

GO WRITE 

002 703 





A 




OOc 704 

1190 

9870 

uuOC 



LOR 

$R1,=2•OOOC * 

TRACK AND SECTOR 

002705 

1 1A0 

A670 

cccc 



LOR 

SR2, = 2'CCCC * 

DATA PATTERN 

OOcVOo 

11 Ac 

b300 

0003 



LNJ 

SB3,WDDX 

GO WRITE 

002707 





A 




002 70b 

i 1A4 

OF 80 

11 D1 


WbDAb 

b 

<WDOB 

DO THE OTHER uRIVE 

002 709 





A 




002 7 10 





A 

WRITE 

DELETED DATA EXECUTION 

002711 





A 




002 712 





A 




002713 

1 i AO 

9F4U 

075 F 


WDDX 

STR 

SR 1,TRNO 

STORE OFF THE TRACk 

002714 

1 1AC 

9F40 

0760 



STR 

SRI,SECT 

STORE THE SEC fOR 

002/15 

11AA 

A300 

FEFD 



LNJ 

S62,FBS 

FILL THE BUFFER 

00271c 





A 




f 002717 

11 AO 

0300 

02 FF 



LNJ 

SB4,F CWA 

FORM WORDS 

I 00271b 





A 




l ... 0027 19 

1 1A0 

0300 

04DO 



LNJ 

SB6,ST 

DO A SfcEK 

002 7 20 





A 




OOC 721 

1 lbO 

6040 

0759 



10 

CWBD,CAOWB 



1 102 

0040 

07 2 C 











1 1T Lfc D1MS3* * KtV L» 


PAGE 34 


UU272c 

1 lb4 

0701 

0000 

1 


BIOT 

+ SA 



UU2/23 

1 lbb 

9 3 CO 

0 AO Z 



LNJ 

SBl♦1QFA 



002 ?Zh 

1 lbd 

8 lCb 

0755 


SA 

1 OLD 

*BFmD*CAOLDiRLB 

OUTPUT ADDRESS AND RANGE 



1 Ida 

0040 

0721 






fj F 


1 lbC 

0040 

0966 






CD*' 

uu 2 / 21 > 

1 iDD 

0 701 

0003 



BIOT 

WDDXA 


Gu 2 iZu 

1 ICO 

93C0 

09 FO 



LNJ 

SBl *iOFA 



0U2727 

11C2 

8040 

U73C 


WDDXA 

iu 

WDLb*CAOTW 

WRITE COMMAND 



11C4 

0040 

0716 







002 / 2 d 

11 Co 

0 701 

0003 



BiUT 

wDDXB 



002 /29 

llCd 

9 3C0 

U 9 F 5 



LNJ 

SB 1 »IOFA 



002730 

1 IGA 

L870 

8000 


WDbXb 

LOR 

$R6,=2*8000* 



002 73 i 

1 ICC 

t F40 

0744 



S 1 K 

SR 6 *FLAG 



004734 

liCb 

A3 CO 

U95C 



LNJ 

SB2 » wAIT 

WAIT UNTIL DOnE 


002733 





* 





004 /34 

1100 

8383 




JMP 

SB3 

RETURN TO cALlER 


002/35 





* 





002 /3b 

11 DJ. 

9870 

0003 


wDDB 

LDR 

SRI*=2*0003* 

TRACK AND SECTOR Tn WRITE 


002737 

1103 

Ab70 

3333 



LuR 

SR2,=2*3333* 

DATA PATTERN TO WRITF 


002 /3b 

1103 

03C0 

002 1 



LNJ 

S63 i WDDY 

GO WRITE 


002 /39 





* 





002 740 

1107 

98 70 

0006 



LbK 

SRI*=2*0006* 

TRACK And SECTOR Tn WRITE 


002741 

1109 

A870 

6666 



LDR 

SR2, = 2*6666* 

DATA PATTERN 


00274c 

110b 

B3C0 

ooib 



lnj 

$B3 t WDDY 

GO WRITE 


002743 





* 





002744 

1100 

9870 

0009 



LDR 

$R1*=2*0009* 

TRACK and SECTOR 


002/43 

11 OF 

A870 

9999 



LDR 

$R2 * = 2 * 9999 * 

DATA PATTERN 


0 0 2 7 4 o 

lit! 

D3C0 

0015 



LNJ 

SB3,wDDY 

GO WRITE 


0 0 2 7 4 7 





* 





Ou 2 / 4o 

11E3 

9870 

UOOA 



LDR 

SRI»=2*000A* 

TRACK AND SEC)OR 


002749 

1 lbb 

A870 

AAAA 



LDR 

SR2 » = 2 * AAAA • 

DATA PATTERN 


002750 

lib / 

b3C0 

00 OF 



LNJ 

Sb3 * WDDY 

GO WRITE 


002751 





* 





U02 /5c 

1 1E9 

9870 

000 B 



LDR 

SR 1 » =2 * OOOB • 

TRACK And sector 


0 u 2 7 5 3 

11 Lb 

AS 70 

bbbD 



'LDR 

SR2*=Z*BBBB* 

DATA PATTERN 


0o2 7 54 

1 1 Lb 

b3C0 

0009 



LNJ 

SB3 * WDDY 

GO WRITE 


002755 





* 





002 /5o 

UtF 

9870 

oooc 



LDR 

SRI*=2»000C* 

TRACK AND SECIOR 


00275 / 

1 in 

A870 

cccc 



LDR 

SR2,=Z*CCCC» 

data pattern 


00275o 

ilFi 

B3C0 

0003 



LNJ 

$B3 * WDDY 

GO WRITE 


u02759 

i 1 F 5 

OF 81 

0034 


WDDC 

b 

RDD 

GO kEAD IT 


002 /60 





* 





002/61 





* 

WRITE 

DELETED DATA EXECUTION - DRIVE B 


002 / 6 c 





* 





0O2763 





* 





U 0 2 7 6 4 

1 i F 7 

9F40 

070b 


WDDY 

SIR 

$RI * TRNO 

STORE OFF THE TKAClc 


002765 

11F 9 

9F40 

0 7 0 F 



SIR 

SR 1 » SECT 

store the sector 


002 /bb 

i 1 Fb 

A3C0 

FbAC 



LNJ 

SB2 * FBS 

FILL THE bUFFi_R 


002 / 6 7 





* 





002 /bd 

ilFo 

C3C0 

02 At 



LNJ 

SB4 9 FCWA 

FORM WORDS 


0 u 2 7 b 9 





* 





002 770 

I IFF 

804u 

0708 


wDDYAA 

lu 

CWAu * CbUWA 




1201 

0040 

ObEA 







002771 

1203 

0781 

F F Fb 



biuF 

wDDy AA 



002 7 /2 





* 





002773 

1205 

8040 

06F5 


WDDYAb 

IU 

SEEk «CbUT W - 


f 


1207 

0040 

Obbl 







002774 

1209 

0 781 

fffb 



b i OF 

WDDY AB 


y 

002 /7 5 





* 





00277b 

120 b 

8040 

ObFE 


WbDYAC 

IU 

CWBb *CBQWB 




1200 

0040 

ObDF 







OU 2 7 77 

120F 

0781 

FFFb 



biOF 

WDDYAC 



U 0 2 7 7 o 

1211 

d 1 Cb 

06FC 



iuld 

*BFhD*CBULD*RLB 

OUTPUT ADDRESS AND rANGL 



1213 

0040 

0607 








1215 

0040 

0900 







002779 

1217 

0 701 

0003 



biOT 

wddya 



002/80 

1219 

9 3C0 

09A4 



LNJ 

Sb1 * IUFA 



002781 

12 1 b 

8040 

Ob 13 


WDDYA 

IU 

WbLUiCdOTW 

WRITE CQMMAND 



1210 

0040 

ObCb 







002782 

1 2 1 F 

0 701 

0003 



BIUT 

wDDYb 



002783 

1221 

9 3 CO 

099C 



LNJ 

Sb1,1 OFA 



002784 

1223 

E870 

8000 


WDDYB 

LDR 

SR6,=2*8000* 



002 /85 

1225 

tF 40 

Ob tb 



SIR 

SR 6 * FLAG 



002786 

1227 

A3C0 

0903 



LNJ 

SB2,WAIT 

WAIT UNTIL DONE 


002 /8 / 





* 





00278b 

1229 

8383 




Ji v iP 

SB3 

RETURN TO CALlER 


002789 





* 





0U2 79o 





* 

RlAD 

aKOUNu DELETED DATA 

FIELD 


002791 





* 





002794 





* 





002793 





* 





002 /94 

122 A 

9BCO 

UAA1 


ROD 

LAB 

SbliTMX 



002795 

1 22C 

9FC0 

034b 



STB 

S 6 UDEXB 



00279b 






CALL 

2VS1•ZVSTCtTSTX 




12 2 b 

FBCO 

0003 








1230 

0380 

0000 








i c 3 2 

0 F 8 0 









1233 

lAFb 








00279 / 

1234 

F 870 

0002 



LDR 

SR7,=2*0002* 

STARTING SECTuR for RFAD 


00279b 

1236 

F F40 

ObD 2 



STR 

SR7 * SECT 



002799 

1238 

FA70 

0003 



ADD 

$R7,=3 



002 b 00 

12 3 A 

F F 40 

ObDB 



STR 

$R7 * TEMP 



002801 

123C 

F 270 

0002 



SUb 

$R7*=2 



002 b 0 c 

12 31 

FF40 

06C7 



STR 

SR 7 * TRNO 



002«03 

1240 

B3C0 

0049 



LNJ 

$B3 *RDDX 

GO READ 


002804 





* 





002805 

1242 

F 8 70 

0005 



LDR 

SR7,=2*0005* 

starting sector 


00280 b 

1244 

F F 4 0 

06C4 



STR 

SR7,SECT 



002807 

124b 

FA70 

0003 



ADD 

SR7,=3 



002 b 0 b 

1248 

FF40 

ObCD 



STR 

SR7 *TEMP 



0U2b09 

124A 

F270 

0002 



sub 

SR7»= 2 



002 b 1 o 

1 4 4C 

FF40 

06b9 



STR 

SR 7 * T RNO 

TRACK 


002 b 11 

124b 

b3C0 

003b 



LNJ 

SB3»RDDX 

GO READ 


002812 





* 





002b13 

1250 

F870 

0008 



LDR 

SR7,=2*0008* 

STARTING SECTOR 


002814 

1254 

F F 4 0 

06 bb 



STR 

SR7 *SECT 



002815 

12 54 

FA70 

0003 



ADD 

SR7,=3 



002 b 1 b 

125b 

F F 40 

06BF 



STR 

SR7 * TEMP 


i 

002b 17 

1258 

F270 

0002 



Sub 

SR7 * = 2 


i 

002818 

125 A 

F F 40 

06Ab 



STR 

SR7 *TRNO 

TRACK 


002819 

12 5C 

b3C0 

002 D 



LNJ 

SB3 *RDDX 

GO READ 


002820 





* 





002821 

125L 

F 870 

0009 



LDR 

SR7 i = 2 * 0009 * 

starting sector 


















1 ITLt L>Xfv 

1 S 3 « * R 0 V O' 
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UO ZbZeL 

1260 

F F 40 

UbAb 



S TR 

$R7«SECT 



uu262s 

1262 

FA70 

0003 



APU 

SR7,=3 



U U 2 o 2 4 

1264 

F F 40 

06B1 



bTK 

$R7,TEMP 



F UUZo^l) 

12bo 

F 2 70 

0002 



bUb 

$R7, = 2 



[ 0 u 2 6 2 o 

1266 

FF40 

0690 



bTK 

SR7»TRN0 

TRACK 


life,,.. 0 U 2 6 2 7 

126m 

b300 

001 F 



LNJ 

SB3,RDDX 

GO REAP 


UU^oZb 





* 





0 u 2 o 2 v 

1260 

F 670 

OOOA 



0 UK 

SK7 < =2 * 000A• 

STARTING StCTuR 


uu2o3U 

1 2 6 L 

F F 4 0 

069 A 



bTK 

SR7 y StCT 



OU2bJl 

12 7U 

FA70 

0003 



APU 

$ R 7 »= 3 



Ou2b3*i 

12/2 

FF40 

06 A3 



bTK 

SR7»TEMP 



UU2b33 

12 74 

F2 7U 

0002 



bUb 

Sk 7 * = 2 



uu2c34 

12 76 

F F 4 0 

06 8 F 



bTK 

$R7»TRNG 

TRACK 


U02o33 

12/6 

b300 

0011 



LNJ 

Sb3 *RDDX 

GO REAP 


002636 





* 





002 o 3 7 

127m 

F 6 70 

000b 



LUk 

SK7 * = 2 •OOOB* 

STARTING StCTuR 


U02636 

12 7 L 

F F 40 

068C 



bTK 

SR7* SECT 



U 0 2 6 3 V 

1 2 71 

F A 70 

0003 



AUP 

SR7, = 3 



UU<l64U 

126U 

FF4U 

U693 



bTK 

SR7*ILMP 



UU404i 

1262 

F 270 

0002 



bUB 

Sk7 »= 2 



OU<io44 

1264 

F F 4 0 

068 1 



STK 

SR7 * fRNO 

TRACK NUMBER 


uu264s 

12 66 

b300 

0003 



LNJ 

SB3 »RPDX 

GO REAP 


UJ2644 





# 





00*:643 





* 





UU2o46 

1286 

0 F 8 0 

1309 


RDDA 

b 

<RPUB 

DO OTHER DRIVl 


UU284 7 





* 





UU264g 





* 

ROAD 

AROUNu PELETEP PATA FlELP EXECUTION 


U02649 





* 





002o3u 





* 





uukbbi 

1 2 8 A 

8740 

0686 


kbDX 

CL 

FLAtj 



002u3*. 

1260 

0300 

02 IF 



LNJ 

SB4,FCWA 

FORM WORDS A mND B 


uu^o^ 





* 





UU2o34 

1286 

L3C0 

U3F0 



Lim J 

SB6,ST 

DO A SEEK TO 1 HO TRACK 


OU2b33 





* 





0U2g36 





# 





0026 3 7 

1290 

087U 

0100 



LPR 

SR6 »=2 * 0100• 

RLCORP LENGTH 


002 g 3 b 

1292 

6106 

067 C 



1ULP 

*RBUF,CAILD*=SR6 

OUTPUT ADDRESS AND RAnGL 



12 94 

0040 

0648 








1 *.96 

0036 






* 


002639 

129 7 

0701 

0003 



blUT 

KDPaA 



0U2b60 

12 99 

9300 

0924 



LNJ 

SB 1 * IOFA 



002 b6i 

129b 

6040 

0660 


KDDXA 

10 

CWBU«CAOWB 




1290 

0040 

0641 







002 g6<c 

129h 

0761 

FFFb 



BiUF 

RPDaA 



002o63 

1 2 A1 

8040 

063C 



lu 

PATm,CA01W 

REAP COMMAND 



1 2 A3 

0040 

0637 







002o64 

12 Ab 

0701 

0003 



b 1 OT 

UBS 



002b6b 

12 A 7 

9300 

0916 



LNJ 

SB1,1OFA 



002666 





* 





002667 





* 





U02g6g 





* 

CHOCK 

THAT PELETEP BIT 

IS SET 


002b6V 





* 





002b7o 

12A9 

6033 



Dbb 

10 

= SR3 »CA1Sw 

ASK FOR STATUb 



1 2 AA 

0040 

063 A 








1 2 AO 

0 761 

FFFC 



b I OF 

PBS 



/ 0 0 2 & 7 *. 

1 2At 

6032 



PbSA 

To 

= SR2 *CAI IR 



( 

1 2 A(" 

0040 

0632 







A 002673 

Ubi 

0761 

FFFC 



blOF 

PBSa 



0U2o74 

12b3 

A970 

0000 



CMR 

$R2,=0 



002 b 7 b 

12bb 

0901 

OOOA 



bO 

PBbAA 



002 b 7o 






CALL 

ZVSlR » E39 * LR3 9 

SEND ERROR MESSAGE 



12 b 7 

FbOO 

0003 








I2b9 

U3b0 

0000 

X 







12 bb 

OF 80 









i2bO 

12B0 









12bO 

1 F BO 








0 0 2 b 7 7 

12BL 

OF 01 

FFFF 


039 

NOP 

S 

RANGE Is NOT ZERO 


00267b 

1200 

6032 



DbSAA 

lo 

=$R2,CAIW6 




1201 

0040 

0622 







0 0 2 6 7 v 

1203 

0761 

FFFC 



b I OF 

PbbAA 



OO^obO 

120b 

b640 

0630 



LPR 

SR3»TEMP 



002b8i 

12 07 

3006 




bOL 

SR3 * 8 



00268*. 

1208 

A93 3 




CMR 

$R2i=$R3 



002683 

1209 

0901 

0002 



bo 

UBSAB 



002o84 

120b 

0F 84 




b 

>PBbAC 



00266b 

1200 

3003 



DbSAb 

bOL 

SR5,3 

position deleiep data bit 


00268b 

UCU 

3601 

0003 



BLZ 

$R3 1 RDDXC 



00288 7 

12 OH 

0F81 

00D6 


DBSAC 

b 

DBSdP 

DELETED FIELD BIT NOT SET 


002686 





* 





002689 





* 

CHOCK 

THAT REAP SKIPPEP 

DELETED data FIELu 


002690 





* 





00269 1 

12 D1 

9CC0 

063t> 


RDDXC 

OPB 

SBltRBUF 

LOAD FIRST WORD 


002692 

1203 

A601 




OPR 

$R2 »SB 1 



002693 

1204 

A970 

3333 



CMR 

SR2 * =2 1 3333 * 



002694 

l20o 

0961 

0003 



BfMO 

RDPACB 



002b9b 

1206 

0F6 1 

0020 



b 

RPPXCH 



002696 

l20A 

A970 

6666 


RDDXCB 

CMR 

SR2,=2*6666* 



002b97 

1200 

0961 

0003 



bNt 

RPPaCC 



002 b9o 

1 2 Ot 

0F8 1 

001A 



b 

RPPXCH 



002699 

12 t.U 

A970 

9999 


RDDXCC 

CMR 

$R2 * = 2 * 9999 1 



002 vOO 

1262 

0981 

0003 



bNt 

RPPxCP 



002901 

1 204 

0F61 

0014 



b 

RPDXCH 



002902 

1206 

A970 

AAAA 


RDDXCD 

CMR 

SR2,=Z»AAAA* 



002903 

12E8 

0981 

0003 



BnO 

RPPxCE 



002904 

121A 

0F81 

0000 



b 

RPPaCH 



00290b 

12 tC 

A970 

BbBb 


RDDXCE 

CMR 

SR2 »=2 * BBBB• 



00290b 

12LL 

0981 

0003 



bNE 

RPPXCF 



002907 

12 H 0 

0F81 

0008 



6 

RPPXCH 



00290b 

12F* 

A970 

CCCC 


RDDXCF 

CMR 

SR2 »=2 1 CCCC * 



002909 

1 2P4 

0981 

0003 



BNt 

RPPXCG 



002910 

12 F 6 

0F8 1 

0002 



B 

RPDXCH 



002911 

12 F 6 

8363 



KDDXCG 

JMP 

SB3 



002912 





* 





002913 

1 2F 9 

93C0 

0260 


RPPXCH 

LNJ 

SB 1 *PEXA 



002914 






CALL 

2VST*2VSTC»DDMS 




12Fb 

FBCO 

0003 








12F0 

0360 

0000 

X 






m 

12 F F 

0F80 








( 

1300 

1618 








00291b 






CALL 

ZV$T.ZV$TC*ABT 




1301 

FBCO 

0003 








1303 

0380 

0000 

X 







130b 

OF 60 











TITLL D1MS3,»REV E* 
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1306 

1D75 








002916 

1307 

OF 8 1 

LL26 



b 

RERUN 



002917 





* 





00291b 





* 




f * 

002919 





* 

READ 

AKOUNu DELETED DATA 

FIELD - UKJVE B 

v> 

002920 





* 




002921 





* 





00292c 





# 





002923 

1309 

F870 

0002 


RDDB 

LDR 

$R7,=2*0002* 

STARTING sector for RfAD 


002924 

130b 

FF40 

ObFD 



STR 

$R7,SECT 



00292b 

1300 

8 AD7 




INC 

= $R 7 



002926 

130L 

FF40 

05F7 



STR 

$R7,JRNO 



002927 

1310 

FA70 

0002 



ADD 

$R7,=2 



00292b 

1312 

F F 40 

0603 



STR 

$R7,TEMP 



002929 

1314 

B3C0 

0044 



LNJ 

$63, kDDY 

GO READ 


0O293O 





# 





002931 

131b 

F 870 

0005 



LuR 

$R7,=2*0005* 

starting SECTOR 


00293c 

131b 

FF40 

ObFO 



STR 

$R7,SECT 



002933 

13 1A 

8 AO 7 




INC 

= $R7 



002934 

13 lb 

F F 4 0 

ObLA 



STR 

$R7 * TRN0 

TRACK 


00293b 

1310 

FA70 

0002 



ADD 

$R7, = 2 



00293b 

1 3 1F 

FF40 

05F6 



STR 

$R7 * TEMP 



002937 

1321 

B3C0 

0037 



LNJ 

$63 ,RDDY 

GO READ 


00293b 





* 





002939 

1323 

F 870 

0008 



LDR 

$R7, =2 * 0008 * 

starting sector 


002940 

132b 

F F 40 

05L3 



STR 

$R7,SECT 



002941 

132 7 

8A07 




INC 

= $R7 



0u2942 

1328 

F F 40 

ObDD 



STR 

$R 7, TRNO 

TRACK 


002943 

132A 

FA 70 

0002 



ADD 

$R7 * = 2 



002944 

132C 

F F 40 

05L9 



STR 

$R7,1EMP 



00294b 

1 321 

b3C0 

002 A 



LNJ 

$B3, RDDY 

GO READ 


00294b 





* 





00294 7 

1330 

F 870 

0009 



LDR 

$R7,=2 * 0009• 

starting Sector 


00294b 

1332 

F F 40 

05D6 



STR 

$R7, SECT 



002949 

1334 

8 AD 7 




INC 

= $R7 



0029bu 

133b 

FF40 

05D0 



STR 

$R7,TRNO 

TRACK 


0029b1 

1337 

FA70 

0002 



ADD 

$R7,=2 



0 0 2 9 5 c 

1339 

F F 40 

05DC 



STR 

$R7,TEMP 



002953 

133b 

b3C0 

001D 



LNJ 

$B3,RDDY 

GO READ 


002954 





* 





00295b 

1330 

F 870 

OOOA 



LDR 

$R7 , =2 * OOOA * 

starting sector 


00295b 

1 3 3F 

F F 4 0 

05C9 



STR 

$R7, SECT 



00295 7 

1341 

8 AD 7 




INC 

= $R 7 



00295b 

1342 

F F 4 0 

05C3 



SIR 

$R 7«TRNO 

TRACK 


002959 

1344 

F A70 

0002 



ADD 

$R7,=2 



002960 

134b 

FF4Q 

0 5 C F 



STR 

$R7 ,TEMP 



002961 

1 34b 

b3C0 

0010 



LNJ 

$B3, RDDY 

GO READ 


00296c 





* 





002963 

134A 

F 870 

000b 



LDR 

$R7,=2*0006* 

STARTING SECTOR 


002964 

134C 

F F 40 

0 5BC 



SIR 

$R7 * SECT 



00296b 

134b 

8A07 




INC 

= $R 7' 



00296b 

1 34F 

FF 40 

05B6 



SIR 

$R7 , TRNO 

TRACK NUMBER 


002967 

1351 

FA70 

0002 



ADD 

$K7,=2 



00296b 

1353 

FF40 

05C2 



STR 

$R7, TEMP 



002969 

1 3 5 D 

B3C0 

0003 



LNJ 

$63,RDDY 

GO READ 

r 

0029 70 

13b 7 

OF 8 1 

00 7 F 



b 

RDF 



002971 





* 





0029 7c 





* 





002973 





* 

Rt AD 

AROUND DELETED DATA 

FIELD EXECUTION 


0029 74 





* 





0 U 2 9 7b 

1359 

8 740 

05B7 


HDDY 

CL 

F LAb 



0029 76 

1 35b 

C3C0 

0150 



LNJ 

$04,FCWA 

FORM' WORDS A mND B 


002977 





* 





002 9 7b 

1350 

8040 

05AA 


RDDYC 

10 

CWAD,CBOWA 




1 3 b F 

0040 

058C 







002979 

1361 

0 761 

FF Fb 



b 1 OF 

RDDYC 



Uu 2 9 8u 





* 





0u2 981 

1363 

8040 

0597 


RDDYD 

IU 

SEEK,C0OTW 




136b 

0040 

0583 







002982 

136 7 

0781 

F F F b 



BIUF 

RDDYD 



002983 





* 





002984 





* 





00298b 





# 





002986 

1369 

Lb 70 

0100 



LDR 

$R6 , =Z * 0100 * 

RECORD LENGTH 


002987 

1 36d 

81C8 

05 A3 


RDDYA 

I OLD 

*RbUF,CBILD,=$R6 

OUTPUT ADDRESb AND RANGE 



1360 

0040 

057C 








1 3bF 

005b 








002988 

13 7u 

0761 

FFFA 



B10F 

RDDYA 



002989 

13 72 

8040 

0597 



10 

CWBD,CBOWb 




1374 

0040 

0578 







002990 

13 7b 

0701 

0001 



BIOT 

RDDYB 



002991 

13 78 

6040 

0585 


RDDY6 

10 

DATA,CBOTW 

READ COMMAND 



13 7A 

0040 

056L 







002992 

137L 

0701 

0003 



BIOT 

DBSt) 



002993 

137L 

93C0 

08 3 F 



LNJ 

$B1,IOFA 



002994 





# 





00299b 





* 





00299b 





* 

CHLCK 

THAT DELETED BIT IS SET 


002997 





# 





U02998 

1 3b0 

8055 



DBSb 

10 

= $R5 »CBISW 

ASK FOR STATUb 



1 3b 1 

0040 

0571 







002999 

1383 

0781 

FFFC 



BlOF 

DbSo 



0 u 3 0 0 0 

1385 

8052 



DBSBA 

10 

=$Rc,CBIIR 




13 8 6 

0040 

0569 







003001 

1388 

0781 

FFFC 



b 1 OF 

DbSoA 



uu3u0«_ 

138A 

A970 

GOOD 



CNR 

$ R 2 , = 0 



uu3003 

1380 

0901 

OOOA 



bt 

DBSub 



003004 






Call 

ZV$lR,E60,ER60 

send error MESSAGE 



i 381 

FbCO 

0003 








1390 

D380 

0000 

X 







1392 

OF 80 









1393 

1395 









1394 

1FB3 








00300b 

1395 

OF 01 

FFFF 


L60 

NOP 

$ 

RANGE IS NOT cERO 


00300b 

139 7 

8052 



DbSBB 

10 

=$R2,CBIWB 




1398 

0040 

0559 







00300 7 

139a 

0781 

FFFC 



BIOF 

DBSdB 



0o3u0b 

139C 

0840 

0 5 79 



LDR 

$R3,TEMP 


1 

003009 

1 39l 

3008 




SOL 

$R3,8 


V> 

003010 

1 3 9 F 

A9 5 3 




CNR 

$R2,=$R3 


003011 

1-3 AO 

0901 

0002 



bb 

DBSdC 



003012 

13A2 

OF 84 




b 

>DBSbD 



003u13 

1 3 A3 

5003 



DbSbC 

Sol 

$R5,3 

POSITION DELE 1 ED Data BIT 
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( 


C 


00301 * 
Ou3015 


003016 
003U17 
003018 
003019 
003020 
003021 
003022 
003023 
00302* 
00302i> 
003026 
003027 
00302b 
003029 
003030 
003031 
00303c 
003O33 
00303* 
0 0 3 U 3 5 
003U36 
• 003U37 
003u3b 
003039 
003U40 
003021 
0o3U*2 
003043 
Ou 304* 
003043 
003046 


1 3A4 

5801 

OOOA 

13A6 

FBCO 

0003 

13 Ati 

D380 

0000 

13AA 

0F80 


1 3 Ab 

1 3 AD 


13 AC 

1F8F 


13 AD 

OFO1 

FFFF 


BLZ 

DBSBD CALL 


SR5 fRDDYCA 
ZV$ER*E48*ER48 


SEND ERROR MESSAGE 


U03u8c 

003083 

Ou3G8* 

Ou3u85 

0o308o 


0O3O87 


1*14 

1 * 1 * 

1*16 

141b 

1 * 1 * 
141C 
l*lt 
14 IF 

1420 

1421 


9F40 04F3 
9F40 04F4 
AF*0 04ED 
C3C0 0093 


FbCO 

D380 

OFBO 

3000 

1904 

1024 


0003 

0000 


E48 

* 

* 

# 

# 


nop s deleted data dIT not set 

CHECK THAT READ SKIPPED DELETED DATA FlELu 


1 3 aF 

9CC0 

055 F 

RDDYCA LDB 

SBltRBUF 

LOAD FIRST WOkD 


13B1 

A801 


LDR 

$R2 * SB 1 





13B2 

A970 

3333 

CNR 

SR2,=Z«3333* 





1 3b* 

0981 

0003 

6NE 

RDDYCB 





13b6 

OF 8 1 

F F * 2 

B 

RDDXCH 

DELETED 

data 

FIELD 

READ 

1308 

A970 

6666 

RDDYCB CMR 

$R2,=Z*6666* 



130A 

0981 

0003 

bNE 

RDDYCC 





13bC 

0 F 8 1 

FF3C 

B 

RDDaCH 

DELETED 

DATA 

FIELD 

read 

13bE 

A97U 

9999 

RDDYCC CMR 

SR2*=Z'9999» 

13C0 

0981 

0003 

bNE 

RDDYCD 





13Cc 

0F81 

FF 36 

b 

RDDaCH 

DELETED 

data 

FIELD 

READ 

13C* 

A970 

AAAA 

RDDYCD CMR 

3>R2 » = Z * AAAA * 



1 3Cb 

0981 

0003 

bNE 

RDDYCE 





13C8 

0F81 

FF 30 

B 

RDDACH 

DELETED 

data 

FIELD 

rfad 

13CA 

A970 

ObBb 

RDDYCE CNR 

SR2♦=Z•BBBB * 

13CC 

0981 

0003 

BNE 

RDDYCF 





13CE 

0F81 

FF2 A 

B 

RDDaCH 

deleted 

data 

FIELD 

read 

13uO 

A970 

CCCC 

RDDYCF CMR 

$R2 »sZ * CCCC• 



13D2 

0981 

0003 

bNE 

RDDYCG 





1 3D* 

OF 8 1 

FF24 

B 

RDDaCH 

DELETED 

data 

FIELD 

read 

13D6 

8383 


RDDYCG JMP 

* 

$63 






* 

* read 

* — 

uLLETlD data fields 






0030* I 

i 3D 7 

9BC0 

ObLF 


RDF 

LAB 

S61*1MW 

00364b 

13D9 

9 FLO 

0199 



STb 

S61*DtXB 

003U49 






CALL 

ZV$1•ZVSTCtTSlY 


13Db 

FBCO 

0003 






13UD 

D 380 

0000 

X 





1 3bF 

0F80 







1 3 tO 

lbl 1 






0b3050 

13LI 

9870 

0003 



LDR 

$Ri*=3 

0U3u5i 

i 3t3 

A870 

3333 



LDR 

SR2*=Z*3333» 

00305c 

13t5 

b3C0 

00 2 C 



LNJ 

SB3 fRDFX 

00 3o 5 3 





# 



003u5* 

13L7 

9870 

0006 



LDR 

SR 1»=6 

Go 3-0 5 5 

1319 

A870 

6666 



LDR 

$R2,5=Z , 6666* 

0o3u56 

1 itb 

b3C0 

0026 



LNJ 

SB3,RDFX 

003057 





* 



00305b 

13LD 

9870 

0009 



LDR 

SRI*=X»09* 

OU3059 

1 3tF 

A870 

9999 



LDR 

SR2 * = Z•9999• 

0O3O6O 

13F 1 

b3C0 

0020 



LNJ 

$B3*RDFX 

003061 





* 



003U6C 

1 3 F 3 

9870 

OOOA 



LDR 

SRl»sX»OA» 

0u3o63 

13F5 

AS70 

AAAA 



LDR 

SR2i=Z•AAAA * 

00306* 

13F7 

b3C0 

001A 



LNJ 

$B3,RDFX 

003065 





* 



003066 

13F 9 

9870 

000b 



LDR 

SRl*=X*Ob« 

0 0 3 0 6 7 

1 3Fb 

A870 

bbBb 



LDR 

SR2 * =Z • BBBB • 

003066 

1 3F u 

B3CU 

0014 



LNJ 

$B3 * RDFX 

003069 





* 



003070 

13FF 

9870 

OOOC 



LDR 

SR 1»-X•OC• 

0U3071 

1*01 

A870 

CCCC 



LDR 

$R2 » ~Z•CCCC• 

00307c: 

1*03 

b3C0 

uoot 



LNJ 

$B3 * RDFX 

003073 

1*05 

8280 

193F 


DELC 

Ld 

<PFt*=Z*0001' 


1*0 f 

0001 






00307* 

1*08 

0500 

018D 



BBT 

<NExT 

003075 





* 



003076 





RDF A 

CALL 

ZV$T *ZVSTC*MESGN 


14UA 

FbCO 

0003 






1*0C 

D38U 

UOOO 

X 





i*ut 

OFBO 







140F 

1 C*3 






U 0 3 u 7 7 

1*10 

0F81 

ED1D 



b 

RERUN 

UU3u7b 





* 



003079 





* 

RtAD 

DtLETc.D DATA FIELD 

0U308o 





* 



003081 





* 




STORE TEST ID 
TEST Y MESSAGc. 


DATA PATTERN 
GO READ AND CuMPARf 


DATA PATTERN 


RDFX 


SIR sRUTRNO 

STR SR 1 * SECT 

STR SR2 * DP 

LNJ SB4 %FCWA 

CALL ZV$F•6UFW»DP««LW 


u u 3 0 8 o 

1422 

6040 

04E5 

SA 

Iu 

CWAu,CAOWA 

WORD 

A TO A 


1424 

00*0 

04B9 






Ou3u89 

1426 

0781 

FFFB 


B10F 

-SA 



003U9U 

1428 

b0*0 

0411 

SB 

10 

CWBO,CAOWB 

WORD 

B TO A 


142A 

00*0 

04B4 






003U9I 

142C 

0781 

FFFB 


BlOF 

-SB 



003U9c 

142L 

80*0 

04CC 

SC 

Iu 

SEEK,CAOTW 

SEEK 

A 


1*3U 

00*0 

04AA 






003093 

143c 

0781 

FFFB 


biUF 

-sc 



0u3o9* 

1*3* 

81C8 

04DA 

RDFXA 

I OLD 

*RBOF *CAILD*RLB 




1*36 

00*0 

04A6 







1*38 

00*0 

06EA 






003095 

1*3A 

0781 

FFF9 


blOF 

RDFXA 



003096 

1* 3C 

80*0 

04C2 

SD 

10 

wDLu,CAOTW 

READ 

DELETEl 


l*3t 

00*0 

049C 






003697 

1*40 

0781 

FFFB 


BlOF 

-SD 



003096 

1442 

A3C0 

06E8 


LNJ 

SB2 $ WAIT 



0U3U99 

144* 

E870 

003 F 


LDk 

SR6 * = X •3F * 



003100 

1 **6 

F 3C0 

03FF 


LNJ 

$B7fCB 

GO COMPARE ■ 
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UO 3i0i 





* 





Ou3 102 

1448 

8000 

1908 


RUFXb 

10 

<CWAD<<CBOWA 


WORD A TO b 


144m 

0000 

186C 







003 J.03 

144C 

0761 

FFFb 



blOF 

RDFXb 


WORD b TO B 

uu 3 1 Oa 

1446 

8040 

U4Bb 


SL 

lu 

CWBD*CBOWb 



1450 

0040 

049C 







0u3105 

1452 

0761 

FFFb 



bl OF 

-$E 



OU 3 I Go 

14 54 

8040 

04 Ab 


SF 

10 

SEEr <CB07 W 


SEEK B 


1456 

0040 

0492 







003107 

14 56 

0761 

FFFB 



BlOF 

-$F 



OU 3iOb 

1 4 5 A 

61C6 

04B4 


RDFXC 

1 ODD 

*RBuF ,CBILD,RLB 




1450 

0040 

0480 








1456 

004 0 

0bC4 







uu3 i. 09 

1460 

0 76 1 

FFF9 



blOF 

RDFXC 



u03110 

1462 

8040 

049C 


SA 

10 

wDLD,CBOTW 


READ B 


14 64 

0040 

0484 







U03 i I i 

1466 

076 1 

FFFb 



BlOF 

-SA 



003i lz 

1468 

A 3 CO 

06CL 



LNJ 

$B2 ,wAITA 



003113 

1 4 6 A 

6870 

003F 



DOR 

SR6,=X«3F» 


GO COMPARE THc DATA 

UU3 i 1 h 

1466 

F3C0 

0309 



OR J 

$B7,Cb 


0031 lb 

1 461 

6363 



KOFXD 

JMP 

$63 


RETURN TO CALlER 

003116 





* 





003117 





* 





U03 1 lo 





* 





003119 

1466 

FbCO 

0003 


KRDRVB 

Call 

2VS1.ZV$TC,CONE 




1471 

0380 

0000 

A 







1 4 7 3 

OF 60 









14 74 

1046 








003 1 2U 

14 7 5 

FbCO 

0003 



CALL 

ZV$T H, 6MDRIM0 




14 7 7 

0380 

UOOO 

X 







14 79 . 

OF 60 









14 7 A 

19 1C 








U03i2i 

14 70 

9840 

04 AO 



.lor 

$Rl,EMDRNG 


SEND ERROR MENAGE 

003 l l<- 

1470 

FbCO 

0003 



CALL 

ZVSbR , 649 , ER49 




1476 

0380 

0000 

X 







1461 

0 F b 0 









l4b£ 

14 64 









1483 

1 F 92 








003123 

1464 

OF 8 1 

6CA9 


649 

b 

RERUN 


READ DELETED uATA FAII ED 

003124 





* 















003126 





* 





003127 





* 


DUR1N SUBROUTINE 



003 12b 





* 





003 129 





* DOR 1N 1S 

A SUdROUTINE USED 

TO 

check whether AN intfrrupt 

00313o 





* 15 

HAPPENED WmILE OPENING , 

AND 

CLOSING THE DOUR ON 

003131 





* THt D1SKt T T DRIVE. 



00313.: 





* 





O03133 

i4 86 

6 700 

200b 


DOR 1N 

CL 

<CLkSEM 



003134 

14 68 

8700 

200A 



CL 

<L21SEM 



00313b 

146A 

6700 

1948 



CL 

<STaTWD 



003136 

i486 

9600 

1940 



LoR 

$R1,<HERTZ 



00313/ 

1466 

9070 

0014 



MUL 

$Rl,;=2Q 


SET THE REAL TIME CLOCK 

003 1 3b 

1490 

9F00 

0000 

X 


SIR 

$R 1,<ZHRTCI 


003139 

1492 

9F00 

0000 

X 


SIR 

$R 1, <ZHRTCC 



003140 

14 94 

9870 

0014 



LOR 

$Ri,=20 


set current clock i fvfl 
start the CLOgK 

003141 

1496 

9F00 

0000 

X 


SIR 

$R1,<2HRTCL 


003144 

1498 

0004 




RICH 



003143 

14-9 9 

6980 

200b 


UNBb 

C M2 

<CLKSEM 


RAN OUT OF TIME 

003144 

149b 

0961 

0007 



bNE 

UNBT 


IF SO, GIVE EkROR MFSSAGE 

003 i 4b 

1 4 9b 

8960 

200A 



Cm2 

<L21SEM 


IS DEVICE INTdRRUPtfD 

0 0 3 14 o 

1496 

0901 

FFF9 



BL 

UNBd 


IF NOT WAIT Fur it 

00314 / 

1 4 A 1 

0005 




RTCF 



TURN OFF THE CLOCK 

003146 

14A2 

8361 




JMP 

$61 


OR ELSE RETURN TO CALLEK ^ 

003149 



UNbT 

CALL 

zVSLR ,E50,ER50 


SEND ERROR MESSAGE DEVICE DID NOT INTERRUPT 


14 A3 

FbCO 

0003 








14 A5 

14 A7 
14A8 

0380 
OF 60 
14AB 
1F95 
0005 

0000 

X 






003150 

14 A9 

14 AA 




R1CF 



TURN OFF THE CLOCK 

0031 b i 

14 Ad 

6361 



650 

JMP 

$61 


NO INTERRUPT wHILE DOOR TEST 

003154 

003153 





* 









# 





003154 

003155 





* 

FORM 

CONFIGURATION WORD 

A 


003156 





# 




LOAD TRACK NUMBER 

0O3157 

14 AC 

9640 

0459 


FCwA 

LOR 

$R 1, TRNO 


00315B 

1 4 AL 

1008 




SOL 

SRI <8 


MOVE IT OVER- 

003159 

003160 

14A6 

9F4 0 

0458 


* 

SIR 

$R1,CWAD 


SAVE IT 

003161 





* 

FORM 

CONFIGURATION WORD 

B 


003164 

003163 

14bi 

9640 

04 5 7 


* 

LOR 

SR 1 * SECT 


LOAD SECTOR NUMBER 

003164 

14b3 

1006 




SOL 

SRI *8 


MOVE IT OVER 

003165 

1404 

9F40 

0455 



SIR 

SRI,CWBD 


SAVE IT 

003166 

003167 

1 4b6 

8364 



* 

JMP 

SB4 


RETURN TO CALlER 

UUj ioo 

003169 





* 

CHECK 

FOR I RACK OVER MAX 


00317O 





# 




LOAD TRACK NUMBER 

003171 

1407 

9840 

0446 


CT Oh 

LDR 

SRI,TRNO 


003174 

14b9 

9970 

004C 



ChR 

SR 1, = X•4C• 


COMPARE TO MAX 

003173 

14bb 

0301 

0002 



bG 

TOM 


BRANCH ON GREATER 

003174 
003175 

1400 

8385 



TOM 

JMP 

CALL 

SB5 

ZVStR,651,6R51 


tIac^CAPACIT^OUT OF TOLEkANCE 


1406 

FbCO 

0003 








14C0 

0360 

0000 

X 







14C2 

0F6O 









14C3 

14C5 









1 4C4 

IF 96 







RETURN TO CALlER 

003176 

14C5 

8365 



651 

JMP 

SB5 


003177 





* 




0031 7 8 
00317V 





* 

fill 

OUTPUT BUFFER FOR 

FORMAT - ONE TRACK 

00318O 





# 




WRITE BUFFER STARTING ADDRESS 

003181 

14C6 

9CC0 

0447 


FP 

Lob 

SB1,BFAD 


003164 

14C6 

6751 




CL 

= $Ri 


LOAD CURRENT (RACK NUMBER 

003183 

14C9 

C640 

043C 



LDR 

$R4«TRNO 


003184 

14Cb 

4 006 




SOL 

$R4 » 8 





y 
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003i8 3 

14CG 

8733 



CL 

= $RS 

CLEAR SECTOR 

003186 

1 4 CD 

CF3L> 


FPA 

STR 

SR4iSbl•♦SRI 

STORE TRACK 

003187 

14CE 

DF3D 



SIR 

$R5iSbl•+SR1 

STORE SECTOR 

003188 

14CF 

D970 

1900 


CmR 

SR3,sX»1900» 

MAX SECTOR? 

003189 

14 D1 

0903 



bE 

>FPo 

THIS sector Dune 

003190 

14D2 

DA70 

UiOO 


ADD 

SR5 * = X * 0100• 

BUMP SECTOR NUMBER 

003191 

14D*+ 

OF 81 

FFF8 


b 

FPA 

GO STORE IT 

00319*. 

14Db 

8382 


FPb 

JMP 

$62 


003193 

003194 




* 




003193 




* 




003196 




* 

generate a random number 



003197 * 


00319b 

003199 

140 7 
1409 

b840 

bA7u 

043 A 

3083 

GRN luk 

ADD 

$R3 *RAND 
$R3 $ = X * 5083 • 

£S^c«i^T§ A ?? 0M nuMBER 

003400 

14Du 

3018 


SCL 

$R3 18 

ROTATE,. IT 

003401 

140C 

BF40 

043 3 

STR 

$R3iRAND 

SAVE IT 

0032 0*. 

14DE 

8386 


JMP 

$B6 

RETURN TO CALLER 


003203 * 

U0320h *--- 

003203 * DETERMINE lRROR FROM STATUS WORD 

00320o * 


00320/ 

14DF 

9840 

0420 


DE 

LDR 

$R1iSTw 

003*; Ob 

1 4 L 1 

A840 

042 F 



LUK 

$R2 v FLAG 

003^09 

1hL3 

2802 




bL6 

$R2,>DES 

003410 

14L4 

OF 84 




b 

>DEAA 

0U3211 





* 



G03clc 

1 4t 8 

1004 



DES 

Sul 

$R 1 14 

003413 

1 4tc 

0 F 8 1 

0010 



b 

DEA 

00 32 1 





* 



003413 

14L8 

9840 

0424 


DEAA 

LDR 

SRliSTw 

0034 1 o 

I^Lm 

1004 




SuL 

$R 1 * 4 

00321 7 

14Eb 

1881 

UOOd 



bGEZ 

$R1iDEA 

00321b 

14LU 

93G0 

U07A 



LNJ 

SBUDEXA 

003*: 1 ^ 






CALL 

ZVSI iLRMA 


1 4LF 

FBCO 

0003 






14 F 1 

0380 

0000 

X 





1 F 3 

OF 80 







14F4 

1 5Db 






003*; 20 

14F 3 

0 F 8 1 

007F 



b 

DEX 

003221 

14F 7 

1001 



DEA 

SQL 

skill 

003224 

1 M Ffa 

1881 

0020 



buEZ 

$R1iDEB 

003423 

14 F A 

93CO 

U06D 



LNJ 

SbliDEXA 

003424 






CALL 

4.VS i iLRMb 


14 F G 

FBCO 

0003 






1 4 F L 

U3bu 

0000 

X 





1300 

OF 8 0 







15U1 

1 5DL 






003423 






CALL 

ZVSIiDRNO 


1304 

FBCO 

0003 






15U4 

D380 

UOGO 

A 





1506 

OF 8U 







150 7 

1638 






003*. 2c 






CALL 

ZVSIHiEMDRNO 


130b 

FbGO 

OOO 3 






150a 

D380 

0000 

X 





1 3 OC 

OFtiO 







1 30U 

19 1C 






003427 

1 3UL 

L840 

0400 



LDR 

$R6itMDRNO 

003c2o 

1510 

LA70 

u 0 0 7 



ADD 

$Rb,=X»07« 

003429 

131c 

8040 

03 E 7 


DEAB 

IU 

RCBi=$R6 


1314 

0056 






u0343u 

1313 

0781 

FFFC 



biOF 

DEAb 

003231 

1517 

0F81 

009G 



b 

DE Jd 

003*: 3*: 

1319 

1001 



DLb 

SUL 

Skill 

003*. 33 

1 5 1A 

1881 

uOOb 



bGEZ 

$RIiDEC 

U03*. 3*+ 

1 3 1G 

93C0 

004b 



LNJ 

$61iDEXA 

0O3*.33 






Call 

ZV$TiLRMC 


1 3 1 L 

FBCO 

0003 






1 52u 

D380 

0000 

X 





1 324 

OF 80 







1343 

15E5 






00343c 

1544 

OFb 1 

0G5u 



d 

DEX 

00343 7 

132c 

1001 



DEC 

SOL 

skill 

00343c 

132 7 

1881 

000b 



bGEZ 

SRliDED 

u034 39 

1 32 v 

93G0 

003L 



LNJ 

SB1iDEXA 

0u3c4c 






Call 

ZVSIitRMD 


1 32d 

FbGO 

0003 






1 32U 

0380 

0000 

A 





1 5 2 F 

OF 80 







133U 

1 5Ee 






00324i 

1531 

0F81 

0043 



b 

DEX 

U03244 

1333 

1003 



DLD 

SUL 

SR 11 3 

003443 

15 34 

1881 

000b 



buEZ 

SRIiDEE 

U 0 3 4 4 4 

1536 

93CO 

0031 



LNJ 

SbliDEXA 

003443 






CALL 

ZVSIlERME 


158c 

F bCO 

0003 






153 a 

D38u 

0000 

X 





153C 

OF 80 







1 3 3 D 

1 5 F 6 






Ou344o 

1336 

OF 81 

0u36 



b 

DEX 

00344 7 

1 34u 

1003 



DEE 

Sul 

SR 11 3 

00344c 

1341 

lbbl 

000b 



bGEZ 

SRliDEF 

003449 

1348 

9 3Cu 

U024 



LnJ 

SB 1iDEXA 

003c 5c 






call 

ZVSIiERMF 


1343 

FBGO 

0003 






15h 7 

0380 

0000 

X 





1349 

OF 80 







1 54 A 

15 F G 






u034 3i 

1 54d 

OF 8 1 

0 029 



b 

DEX 

003454 

1 54U 

1001 



DEF 

SuL 

skill 

0U34 53 

154c 

1881 

uOOb 



bGtZ 

SRiiDEG 

003454 

1 5 5 u 

93C0 

0017 



LNJ 

SB 1iDEXA 

003453 






CALL 

ZVSIiERMG 


1554 

F6CU 

0003 






1534 

D380 

0000 

X 





1536 

OFbu 







133 7 

1606 






00345c 

1338 

OF 81 

001C 



b 

DEX 

0 0 3 4 5 7 

1 5 3 A 

1001 



DEG 

SUL 

Skill 

00343b 

133b 

1881 

000b 



buEZ 

SKIiDLH 

0U3c 39 

1 53u 

93C0 

UOOA 



LNJ 

SBliDEXA 

003460 






CALL 

ZVSIiERMH 


LOAD THE STATuS WORD 
READ ERROR 

DEVICE FAULT 


MISSED DATA SYNC 

UNSUCCESSFUL SEARCH 

SEEK ERROR 

NON-EXlSTENT kESOURCF ERROR 

BUS PARITY ERkOR 

UNCORRECTAbLE MEMORY FRROR 
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1 8 8 F 

F BCO 

0003 







1861 

0360 

0000 


X 





1863 

OF bo 








1864 

160F 







003*61 

1868 

0 F 6 1 

000 F 




b 

PEX 

u03*62 

003*65 

1867 

6362 




DEN 

* 

JMP 

SB2 RETORN TO CALlER 

003*64 

1868 

FbCO 

U003 



DEXA 

CALL 

ZV$T.2ViTC»CRLF 


1 86A 

0360 

0000 


X 





i860 

OF 6u 








1 56b 

1628 







0 0 3 2 65 

l 86b 

FbCO 

0003 




CALL 

2Vi I» TEST IP 


15 70 

0360 

0000 


X 





1872 

0P60 








18 73 

16F8 







003266 


1873 




DEXB 

EoU 

$-$AF 

003*67 

1874 

6361 




JMP 

SB 1 

003*6c> 

1878 

FBCO 

0003 



DEX 

CALL 

ZVSi.2VSTC%TRACK TRACK 


18 n 

0360 

0000 


X 





1879 

OF 60 








1 8 7 A 

1620 







003269 

18 7b 

b.640 

03 AO 




LpR 

SR6,EMPRN0 

003*70 

18 70 

EA70 

OO10 




App 

$R6i = X•10» 

003271 

1871- 

6088 




dek 

10 

-$R5 » = SR6 

00327* 

i860 

0086 





1861 

0761 

FPFD 




BiQF 

DEK 

003*73 

1863 

8046 





SON 

$R5 *8 

U03 * 7*t 

1864 

OF40 

0382 




STR 

$R5,ETRN0 

003275 

186b 

FbCO 

0003 




CALL 

2VSih.2VSTD,ElRN0,CNTLi TRACK NUMBER 


1 866 

0360 

0000 


X 





1 8 6 A 

OF 60 








18bo 

1907 








1860 

1928 







0 0 3 * 7 6 

1860 

OFO 1 

FFFF 



peka 

MOP 

S 

00 3*7 7 

186b 

FbCO 

0003 



DEKB 

CALL 

2Vi i »SEC TOR 


1891 

0360 

0000 


X 





1893 

0F60 








1894 

1632 







00327b 

1898 

b64Q 

0386 




LPR 

SR6 »EMPRNO 

003b 79 

189 7 

LA7 0 

0012 




ADD 

$R6t?X*12* 

003280 

1899 

6088 




PEJ 

10 

=$R5«=$R6 

003*81 

189a 

0086 





189b 

0761 

F F Ft) 




b iuF 

PEJ 

00328c 

1890 

8046 





SON 

SR5»8 POT IN PROPER POSITION 

003283 

189b 

OF 40 

037F 




STR 

SR5»ESECT 

003284 

1 8 AO 

FbCO 

0003 




CALL 

2VilH.2V.STD*ESiXTTCNTLl SECTOR NUMdER 


18 A2 

0360 

0000 


X 





18A4 

0F60 








18A8 

191b 








18Ab 

1928 







003288 

1 8 A 7 
18A9 

1 8 Ab 

FBCrO 

0>80 

0F60 

0003 

0000 


X 

PEJA 

CALL 

2V$T *PRNO 


18 AC- 

1636 







00 31.8 6 

18 AO 

FbCO 

0003 




CALL 

2V$ TH#ZVSTPi * EMPRNO *CNTL 1 CHANNEL NoMBER 


18AF 

0360 

0000 


X 





18bi 

0F60 








1 8B2 

1 9 1C 








1 8b3 

1928 







003287 

18b4 

6 ACO 

0350 



pejb 

INC 

RTYCT 

003^88 

1 8b6 

6AC0 

035F 



INC 

TEMP 

003289 

1806 

8 ACO 

033E 




INC 

CRTKY 

00329u 

1 8bA 

6980 

0000 


X 


CM2 

<ZVsTTY IS CONSOLE PRtSENT 

003491 

1 8bL 

096 1 

0008 




biMb 

PEJP continoe IF PkESENt 

003294 

1 8bb 

FbCO 

0003 




CALL 

2VSlR * E59iER59 OR ELSE SEND lRROR MESSAGE 


1 8C0 

0360 

0000 


X 





18C2 

0F80 








18C3 

12bb 








15C* 

1FB0 







003293 

1 8C8 

b640 

0331 



PE JD 

LPR 

Sk3»CRTRY 

00329h 

18C7 

b970 

0003 



Cmk 

SR3 »sX•03• 

003293 

18C9 

0261 

0002 




boE 

PEI 

003296 

1 8 CO" 

8384 





JMP 

$B4 

003497 

1 8CC 

8AC0 

0354 



DEI 

INC 

HERR 

003298 

18Ct 

FBCO 

0003 




Call 

ZVStR»E52 *ER52 SEND ERROR MEbSAGE TF THREE 


1800 

0380 

0000 


X 





1802 

OF 80 








1803 

1508 







003299 

1804 

1F 9b 







1808 

OFO 1 

FFFF 



E52 

nop 

S ONRECOVERABLE ERROR HAPPENED 

003300 

003301 

1807 

8382 




* 

JMP 

SB2 RETURN TO CALlER 

003302 







ERROR 

MESSAGES 

003303 






* 

003304 

1806 

5245 

4144 

2045 


ERMA 

TEXT 

•REAP ERROR;** 

003308 

180b 

5252 

4F52 

3A24 



180b 

4445 

5649 

4 345 


ERMB 

TEXT 

•DEVICE FAULT;S• 


1 8b 1 

2046 

3A24 

4049 

4155 

4C54 



003306 

1 8b8 

5353 

4544 


ERHC 

text 

•MISSED DATA SYNC;i« 


18 Ed 

2044 

4154 

4120 



003307 


5359 

4E43 

3A24 





1 8bb 

554b 

5355 

4343 


ERMD 

TEXT 

»UNSUCC SEARCH* $• 


1 8F 1 

2053 

4541 

5243 



003308 


48 3 A 

2400 






1 8 F 6 

5345 

454b 

2045 


ERNE 

TEXT 

•SEEK ERRORIS* 


18F9 

5252 

4F52 

3A24 




003309 

18FC 

4L4F 

4E2P 

4558 


ERMF 

TEXT 

•NOn-EXIS RESOURCE; $• 


18FF 

4953 

2052 

4553 



003310 


4F55 

2400 

5243 

453A 





1606 

42 55 

5320 

5041 


ermg 

TEXT 

•BUb PARITY ERROR;$• 


1609 

5249 

5459 

2045 






fi'" v 

\.y 





lITLt UIMS3 «*REV E» 


PAGE 41 




3252 

4F52 

3 A24 







003311 

160F 

554E 

434F 

5252 


ERMH 

TEXT 

tUNCORR MEM ERROR; 

$• 



1612 

2040 

4540 

2045 







5252 

4F52 

3A24 







003312 

161c 

4443 

4C45 

5445 


DDNS 

TEXT 

•deleted field not 

SKIPPED** 



1610 

4420 

4649 

454C 








4420 

4E4F 

5420 









534b 

4424 

4950 

5045 







003313 

162 3 

000 A 

2400 



Mo 

TEXT 

Z*000A»♦•$• 



0033 1 h 

1627 

2043 

4841 

4t4E 


TEXT 

• channel( S)$ * 




1 6 2 A 

4540 

2853 

2924 






003815 

1620 

2054 

5241 

434B 


TRACK 

TEXT 

• TRACK; $' 




1630 

3A20 

2400 








0033 lb 

1632 

2020 

3345 

4354 


SECTOR 

TtXT 

* SECTOR; $* 




1633 

4F52 

3A20 

2400 






003317 

1638 

2020 

4348 

414E 


DRNO 

TEXT 

• channel; $» 




1636 

4E45 

4C3 A 

2024 






0033 1 i> 






* 





00331V 






* 





00332U 






* 





00332 1 
003324 






* __ 










* 

CHECK 

FOR oEVICE READY 



003323 






* 





003324 

16 31. 

8055 




CO 

10 

= $R3 »CAISW 

INPUT STATUS wORD 



1631- 

0040 

02A5 







003323 

1641 

0781 

FFFC 




blOF 

CO 



O0332o 

1643 

OF 40 

02C9 




STR 

$R5 *STW 

SAVE STATUS WuRD 


003327 

1643 

5881 

0002 




B«oEZ 

$R5 ♦COA 


00332o 

1647 

8384 




COA 

JMP 

SB4 

RETURN TO CALlER 


003329 

1648 

FbCO 

0003 



CALL 

ZV$I.ZV$TC*CONE 





1 6 4 A 

0380 

0000 


X 







1640 

0F80 









0O333O 

1640 

1046 









164E 

9840 

02C9 




lor 

$R 1» CHAI 



003331 

1630 

FbCO 

0003 




CALL 

ZVSTHiCHAI 




1632 

0380 

0000 


X 







163a 

OF 80 










1633 

1918 









00333*. 

1 636 

FbCO 

0003 



COAB 

CALL 

ZV$I*NRDY 




1638 

03 bO 

0000 


X 







163m 

OF 80 










16 3b 

105F 









003333 

1630 

FbCO 

0003 




CALL 

ZV$c.R * E53 * ER53 

SEND ERROR MESSAGE 



16 5 E 

0380 

0000 


X 







1.660 

0F 80 










1661 

1663 










1662 

1F9E 









01)333*+ 

003333 

1663 

OF 8 1 

bACA 



E53 

* 

b 

RERUN 

GO AND START aLL OvFR 

003336 






* 





00333 7 






* 

CHECK 

OEVICE b READY 



00333o 






* 





003339 

1663 

8053 




cob 

10 

=$R3,CBISW 

read status 



1606 

0040 

028C 








003340 

1668 

0781 

FFFC 




BIOF 

COB 



003341 

1 66A 

OF 40 

02A2 




STR 

$R5 * STW 



003344 

1660 

5881 

0002 




bGEZ 

$R5 t COBA 

BRANCH IF DEVICE Not 

ready 

0u3:j45 

166L 

8384 





JHP 

$64 

003 34*+ 

1 OOF 

FbCO 

0003 



COBA 

CALL 

lV$T.ZV$TC*CQNE 

DEVICE NOT REaDY Mf.SSAGE 










16 71 

0380 

0000 


X 







1673 

OF 80 










16 74 

1046 









003343 

1673 

9840 

02 A4 




LOK 

$ri*chbi 



003846 

1677 

FbCO 

0003 




CALL 

ZVSTH *CHbI 




1679 

0380 

0000 


X 







16 7d 

OF 80 










16 7C 

191A 









003347 

16 70 

OF 8 1 

FFDb 




b 

CQAb 



00334o 






* 

seek 

TRACK ROUTINE 



00 3 349 






* 





008850 

16 IF 

C840 

028c 



ST 

lor 

$R4 « TRNQ 

LOAD TRACK NUMBER 


003331 

003334 

loci 

D3C0 

FE35 



* 

LNJ 

$B5,CT0M 

CHECK FOR TRAlK OVfR 

max 

0O3^»33 

1683 

8040 

0284 



ST C 

10 

CWAD *CAOWA 




168 3 

0040 

025 8 








003^34 

1687 

0781 

FFFd 




blOF 

ST C 



00 3 j 3 3 

1689 

8040 

0271 




10 

SEEk,CAOTW 

SEEK 



1 68b 

0040 

024F 








003856 

loco 

0701 

0003 




blOT 

STb 

BRANCH IF 10 wORKEd 


003j3 7 

l68h 

93C0 

U52E 




LNJ 

$B1«I0FA 


00333c 

1691 

A3C0 

0499 



STb 

lnj 

$B2 • W AI T 

WAIT UNTIL DONE 


003339 






* 




003360 
0u3861 

1093 

8386 




* 

JHP 

$B6 

RETURN TO CALlER 


003362 

003^63 
















* 

VERIFY HEAOERS FOR ONE TRACK 


00336*1 






* 





003^63 

169a 

8/51 




VH 

CL 

= $R1 



003 36o 

1693 

0840 

U270 




LOR 

$R5,TRN0 

LOAD TRACK NUMBER 


00336 7 

1097 

500b 




VHH 

SOL 

$R5,8 



00336c 

1698 

8756 





CL 

= $Ro 

SET SECTOR TO ZERO 


003369 

1699 

9CC0 

0275 




LOB 

$B1iRBUF 

READ BUFFER SIARTIng 

address 

0 0 3 3 7 o 

169b 

C85U 




VHA 

LoR 

$R4»$BU*$R1 

LOAD WORD 

003371 

1090 

C955 





CMR 

$R4,=$R5 

COMPARE THEM 


003374 

1690 

0903 





bt 

>VHo 


0u3373 

169L 

0F81 

0018 




b 

VHE 



003374 

1 6 AO 

C850 




VHb 

LOR 

$R4*$Bi«+$Rl 

LOAD SECTOR PuRTIOn of HEADER 

0 0 3 3 7 3 

1 6 A 1 

C956 





CMR 

$R4,=$R6 

COMPARE THEM 


Ou337c 

16 A2 

0903 





BE 

> VHC 


003377 

1 6 A3 

OF 8 1 

0013 




b 

VHE 



00337c 

10 A3 

EA70 

0100 



VHC 

ADO 

$R6 * sX•0100 * 

BUMP SECTOR NuMBER 


003379 

1 6 A 7 

E970 

1900 




CMR 

$R6 * sX 1 1900• 

all done? 


003380 

16A9 

0300 





bG 

>VHO 


003381 

IOAm 

8280 

1924 



VHCA 

Lb 

<CPFL* =Z 1 0001 * 




1 OAO 

0001 









003384 

16A0 

0501 

0005 




BBT 

VHCd 

BRANCH IF 6/3o 
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003383 

16 Ah 

9 A70 

0001 



ADD 

$R1 * =X * 01• 


0033*34 

Ibbi 

OF 8 1 

0003 



b 

VHCC 


003383 

1 6b8 

9A70 

0040 


VHCB 

ADD 

SR 1 * =X * 0040 * 

MOVE POINTER 10 NEXT TRACK 

00338o 

16b5 

OF tb 



VHCC 

b 

> VHA 

DO NEXT HEADEk 

0 u 3 3 8 7 

1 6D6 

8383 



VHD 

JMP 

SB3 

return TO CALuER 

0u338b 





* 




U03b89 

16b 7 

8 AC 0 

0240 


VHE 

INC 

RTYlT 

BUMP TOTAL COUNT 

u u 3 3 9 U 

lbbv 

bACo 

0230 



IRC 

crtry 

BUMP CURRENT 

OU339i 

lbbu 

C840 

023b 



LDR 

$R4»CRTRY 


00339*; 

ibbU 

C970 

0004 



CMR 

$R4,=X*04* 


0U3393 

i btiF 

0281 

0002 



but 

VHP 


0u339*+ 

IbCl 

83b<i 




JMP 

$B2 

GO RETRY 

003393 

i 0 C .4 

6740 

0234 


VHF 

CL 

CRTRY 


003390 






CALL 

ZVSI.ZV$TC*MESG 

SEND ERQOR MESSAGE 


ibC4 

FbCO 

0003 







1 6 Cb 

0380 

0000 

X 






i6Cb 

OF 80 








1 oC9 

1950 







003397 






CALL 

ZV$I.ZV$TC*DRNO 

CHANNEL NUMBER 


lbCA 

FbCO 

0003 







16CC 

0380 

0000 

X 






ibCL 

OF 80 








I bCF 

1638 







00339o 






CALL 

ZVSTh *CHNL 



1 bUO 

FbCO 

0003 







1602 

0380 

0000 

X 






1604 

OF 80 








ibU5 

0 701 







003399 






CALL 

ZV$T.ZV$TC*TRACK 

TRACK NUMBER 


1 606 

FbCO 

UG03 







1608 

0380 

0000 

X 






1 6 OM 

OF 80 








1 60b 

* 1620 







0U340O 






CALL 

ZV$1H,TRNOA 



1 bDC 

FbCO 

0003 







ibOL 

0380 

0000 

X 






1 6 tO 

0F8O 








lbtl 

192C 







U03401 






CALL 

ZVSlR * E54 * ER54 

send error MESSAGE 


1 612 

FbCO 

0003 







1 6t4 

0380 

0000 

X 






1 61 b 

OF 80 








lot/ 

16t9 








lbtb 

1 F A1 







Gu340*i 

1619 

OF 8 1 

F 7 82 


15 4 

b 

FMTC 

wrong format un medta 

003403 



.# 


* 




003408 





* 

GENERATE words for random 

SEEKS, READS 

003406 





* 




0 u 3 4 0 7 

ibbb 

13C0 

FDEb 


Gkw 

LNJ 

$B6* GRN 

generate a random NUMBER 

00340b 





* 




00 3h09 

ibtO 

C840 

0224 



LDR 

$R4 * RAND 

load the random numrfr 

003410 

16 LF 

4049 




sok 

SR4,9 

move to the Right 

003411 

16 F 0 

C970 

004C 


OR W A 

CMR 

$R4 * = X * 004C 1 

COMPARE TO MAa 

00341*. 

1 b F 4 

0383 




bLE 

>GRwB 


003413 

lbFb 

4041 




SuR 

»R4,1 

OVER MAX* MOVl TO RIGHT 

003^14 

lbF 4 

OFF C 




b 

>GR w A 

COMPARE IT 

003418 

16F5 

400b 



GRwB 

SOL 

*R4,8 

PUT IN PROPER POSITION 

003416 

IbFo 

CF40 

0211 



SIR 

$R4 * CWAD 

WORD A TO BE OUTPUT (TRACK) 

003417 

1 b F b 

C84C 

0219 



LDR 

$R4 * RAND 

reload random NUMbFR 

00341b 

lbF A 

404b 




SOR 

$R4,11 

MOVE IT OVER 

00341 9 

ibFb 

C970 

0019 


GRwC 

CMR 

$R4,j=X»0019» 

COMPARE TO MAa 

003420 

ibFu 

0383' 




bLE 

>GRwD 


003421 

IbFb 

404 1 




SuR 

$R4,1 

OVER MAX* MOVl IT OVFR 

003422 

1 bF F 

OFFC 




b 

>GR wC 

COMPARE IT 

003423 

1700 

400b 



GkWD 

Sul 

2>R4 % 8 

PUT IT PROPER POSITION 

003424 

1701 

CF 40 

0208 



str 

*k4,CWbD 

WORD b TO BE OUTPUT (SECTOR) 

003428 

1703 

6385 




JMP 

*65 

RETURN TO CALLER 

U 0 34 2 6 





* 




003427 





* 




00342b 

00342V 





* 

•ft -r- 


- 


003430 





# 




003431 





* 

CLEAR 

INPUT BUFFER(ONE TRACK OF 52C@HEX@WuRDS) 

003432 





* 




003433 

1 7 04 

8751 



Ub 

CL 

= $R1 


GU3434 

1705 

8754 




CL 

= $k4 


003438 

17 06 

8 755 




CL 

= $R5 

WORD COUNTER , rr 

003436 

170 7 

9CC0 

0207 



LDB 

*B1*RBUF 

READ bUFFER SIARTlNG ADDRESS 

003437 

1709 

CF 50 



UbA 

STR 

*R4 t $b1•+$R1 

STORE WORD OF ZEROS 

00343b 

1 70m 

0970 

052C 



CMR 

*R5 * = X * 52C * 

ALU DONE? 

003439 

1 700 

0901 

0005 



BL 

CIBb 


003440 

1 70t 

0A70 

0001 



ADD 

$R5*=X*Q001» 

BUMP WORD COUNTER 

003441 

17 10 

OF 8 1 

F F f 8 



b 

CIBA 

DO ANOTHER WORD 

00344*: 

1714 

8384 



Ubb 

JMP 

SB4 

RETURN TO CALlER 

003443 
n 1 jl. u 





* 

'ft — -'-— _ 




V U J H ^ *t 

003448 





* 




003446 





* 




00344 7 





* 

WRITE 

BOTH PACKS WITH DATA 


00344b 





* 




003449 

1713 

8040 

Oltt 


WPD 

10 

INIT*CAQCW 

PUT DRIVES ON TRACK 0 


1715 

0040 

01C3 






003450 

17 17 

0781 

FFFB 



blOF 

wPD 


003451 

1719 

8740 

01FC 



Cl 

TEMP 


003454 

171b 

8740 

0205 



CL 

HERR 


003453 

1710 

87 40 

01 DA 



CL 

ERCA 


003454 

17 IF 

8740 

01D9 



CL 

ERCu 


003455 

1741 

8740 

0 1E3 



CL 

RTYCT 


003456 

1723 

8740 

01D3 



CL 

CRTKY 


003457 





* 




00345b 

172 5 

0F8 1 

OOOE 



b 

WPDDA 


003459 

172 7 

C870 

8000 


WPDR 

LDR 

*R4 * = Z * 8000 * 


003460 

1729 

CF 40 

0 1EC 



STR 

$R4 « TEMP 


003461 






CALL 

ZV$FR *8UFW *WRwT 



172b 

FBCO 

0003 







1720 

0380 

0000 

X 






17 2 F 

OF 80 








1730 

3000 








1731 

1027 







003464 

17 32 

OF 8 1 

0009 



B 

wpddb 


003463 





WPDDA 

CALL 

ZV$F*BUFW*DP*wRWT 



17 34 

FbCO 

0003 








"'"X 

fl 
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1 736 

0360 

UOOO 

A 






17 36 

OF bU 








1 739 

300U 








17 3 A 

1904 








173b 

1B27 







UG3<+64 

1 7 30 

tb 70 

8000 


wPOOb 

LOR 

$R 6 » =Z•8000 1 


UU3465 

1 73L 

t F 40 

01 D 2 



STR 

$R 6 »FLAG 


003466 

1 740 

6 740 

u 1C3 



Cl 

I RNu 

ZERO TRACK 

00346 r 

1 7 42 

6740 

01C6 



CL 

SECI 

ANS StCTOR 

0U 3466 

1744 

0300 

F 06 7 



LNJ 

$B4,FCWA 

FORM WORDS 

UU 3469 

1 746 

0640 

01CF 



lor 

SR4«TEMP 


UU347u 

1 74b 

4661 

0008 



BGEZ 

$R4,WPDA 


UU347 1 





WPDDC 

call 

ZVSI-R»BUFW,WRaT 



1 74m 

F bOO 

0003 







1 74C 

036u 

0000 

X 






1 740 

OF 60 








1 74f 

3000 








1 730 

1B 2 7 







003^ 7 <l 





* 




0u34 7b 

1731 

6000 

1908 


WPDA 

iu 

<CWAD t <CBQWA 

WORD A TO b 


173 3 

0000 

16EC 






003474 

1733 

0 761 

FFFb 



blUF 

wPDa 


U03475 

173 7 

6040 

Olb 2 


wpdb 

lu 

CWBluCAOWB 

WORD B TO A 


1 739 

0040 

0163 






003476 

1 7 3b 

0 761 

FFFb 



biUF 

WPDd 


0 U 3 4 7 7 





4 




U 0 3 4 7 6 

1 73 u 

bOOO 

18F b 


WPUC 

lu 

<SELK »<CBQTW 

<SEEK B 


17 3 F 

oouo 

18E9 






00347 V 

176 1 

07 6 1 

FFFb 



blUF 

wpdc 


0U346U 





* 




0U3461 

1763 

6040 

01A6 


WPDCA 

10 

CWBD 9 CBOWb 

WORD b TO B 


1 763 

0040 

0167 






Uu3<t62 

1 767 

0 7 61 

FFFb 



b I OF 

WPDCA 


0U3463 





* 




UU34b4 

1769 

6 1 C 6 

01A4 


WPOD 

iuLD 

*BFaD»CAOLD»BRwT 



1760 

0040 

0170 







17 60 

0040 

03B8 






Ou 34b 3 

1 7 6 P 

0 761 

F F F 9 



blUF 

wPDu 


0u34bo 

17 71 

6040 

018C 


WPUt 

10 

OATa 9 CAUT W 

WRITE A 


177 3 

0040 

0167 






003467 

17 7 3 

0 761 

FFFb 



biOF 

WPDL 


00348b 

1 7 7 7 

CbCO 

F PDF 



LAB 

$B4«WPDb 


0U346V 

17 7 9 

A3C0 

03B1 



LNJ 

$B2 * WAIT 

WAIT 'TIL DONt 

UU 3496 





* 




063491 

17 70 

*6 ACO 

0 16 A 



INC 

TRNu 

BUMP TRACK NUMBER 

00349c 

1 7 70 

(.840 

0188 



LOR 

3>R4» TRNU 


003493 

17 7 F 

(.970 

0040 



CMR 

3>R4, = X»40» 

TRACK OVER MAx?? 

003494 

17b l 

0900 

1 79t 


WPDK 

BL 

<w Pun 


003493 

1763 

C3C0 

F 028 



LNJ 

$b4 9 FCWA 

FORM NEW WORDu 

U 0 3 4 9 6 

1763 

6040 

0182 


WPDF 

lu 

CWAu,CAOWA 

WORD A TO A 


176 7 

0040 

0136 






003497 

1769 

0 761 

FFFB 



blUF 

WPDF 


00349b 





* 




003499 

1 7bd 

6040 

016F 


WPOG 

IU 

SEEK *CAOTW 

SEEK A 


1 760 

0040 

0140 






00330O 

17 6 F 

0781 

FFFB 



b 1 OF 

WPDu 


003301 

1791 

OF 81 

OOOC 



b 

wPDh 


00350c 

1 793 

(.840 

0176 


WPoGA 

LOR 

$R4,CWBD 


003303 

1 79 3 

4901 

0003 



BEZ 

SR4 * WPDGB 


003304 

1 79 7 

(.270 

0001 



SUB 

$R4 t = X * 0 1 * 


003303 

1 799 

6034 



WPDGB 

Iu 

=$R4•CBOWB 



1 7 9 A 

0040 

0152 






00 3 30o 

17 9 C 

0781 

FFFC 



blUF 

WPDub 


0 0 3 3 0 7 





* 




O0330o 

1 791 

8188 

190E 


WPDH 

IULO 

*<BFADf<CBOLDtbRWT 



17A0 

0000 

16EB 







17 A2 

0040 

0383 






003309 

17A4 

0781 

FFF 9 



B IGF 

w PDH 


003310 

1 7 A 6 

6040 

0157 


WPDI 

To 

OAT A «CBOT W 

WRITE B 


17 A 6 

0040 

0140 






003311 

1 7AA 

0761 

FFFb 



blUF 

WPDI 


0U33U 

17 AC 

CbCO 

FFE 6 



LAb 

3>B4 «WPOGA 


003313 

1 7 At 

A3C0 

0390 



LNJ 

SB2 *WAI TB 

WAIT 'TIL DONt 

003314 





* 




Oo 33 1 3 

1 7 bo 

C640 

0155 



LOR 

*R4«TRNU 


003316 

1 7b2 

C970 

0040 



CFiR 

SR4 , = X * 40• 

OVER MAX??? 

003317 

17 b4 

0901 

0007 



bt 

wPDj 


00331b 

1 7B6 

C840 

015F 



LOR 

$R4 9 TEMP 


u033 1 9 

1 7 Db 

4661 

FF98 



boEZ 

&R4 9 WPDA 


003320 

17b A 

OF 6 1 

FF8F 



b 

WPDDC 

DO another TRACK 

003321 

17BL 

6 38 3 



WPOJ 

JHP 

$B3 


003322 

003323 





* 

# 




003324 





X 




003323 





X 

READ 

BOTH PACKS (DATA ONLY) 


003326 





X 




003327 

1 7bu 

6040 

0144 


RPU 

10 

INITfCAOCW 

PUT DRIVES ON TRAC* 0 


17 bE 

0040 

0119 






00332b 

1 7C1 

0761 

FFFb 



BIUF 

RPD 


003329 

1703 

6740 

0152 



CL 

' TEMP 


003330 

1703 

6 740 

0132 



CL 

ERCa 


003331 

1707 

6740 

0131 



CL 

ERCd 


00353c 

1 709 

6740 

0147 



CL 

FLAu 


003333 

170b 

6740 

013A 



CL 

TRNU 


003334 

1 7 00 

8740 

0139 



CL 

tTRNO 

TRACK IN ERROK 

003333 

17 OF 

6740 

0151 



CL 

HERR 

"HARD ERROR COUNTER” 

003336 

1701 

6 74 0 

0137 



CL 

SECT 


003337 

1703 

C3C0 

FCD 8 



LNJ 

$B4 9 FCWA 

FORM WORDS 

003336 





* 




0O3339 

1703 

C3C0 

FF2E 


RPDA 

LNJ 

SB49CIB 

CLEAN THE INPUT BUFFER 

003340 

1707 

6740 

Oil F 



CL 

CRTKY 


003341 

1709 

8000 

1908 


KPDB 

10 

<CWAD9<CB0WA 

WORD A TO B 


170b 

0000 

18 tC 





• 

00334c 

1700 

0761 

FFFb 



blUF 

RPDd 


003343 

17 OF 

b640 

0118 



LOR 

$R3 9 ERCA 


003344 

1 7t 1 

bF40 

0123 



STR 

3>R3 9 RTYCT 


003343 

1 713 

6040 

0126 


RPDC 

IQ 

CWBD 9 CAQWB 

WORD B TO A 


1 7L5 

0040 

00F9 






003346 

17E7 

0761 

FFFB 



BIUF 

RPDC 


003347 





* 




00334b 

17E9 

6000 

18FB 


RPDD 

IU 

<SELK9<CB0TW 

<SEEK B 


17Eb 

0000 

18E9 






003349 

1 7 to 

0781 

FFFb 



BIUF 

RPDu 
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003551 

17EF 

81C8 

01 IF 

RPDE 

I OLD 

*RBUF ,CAILD,BRWT 




1 7 F 1 

0040 

OOEb 







17 F 3 

0040 

0332 






003552 

17F5 

078 1 

FFF9 


blQF 

RPDt 



003553 

1 7 F 7 

8040 

0106 

RPDF 

10 

DATa,CAOTW 

READ 

A 


17 F 9 

0040 

00E1 





003554 

17 F O 

0 781 

FFFB 


610F 

RPDF 



003555 

1 7 F D 

CbCO 

FFE5 


LAB 

$B4,RPDC 

FOR RETRY PURPOSES 

00355b 

17FF 

A3C0 

032B, 


LNJ 

$B2,WAIT 

WAIT 

•TIL DONt 

003557 

1801 

6840 

0103 


LDR 

$R3,RTYCT 



00355b 

1803 

bF 40 

OOF 4 


STR 

$R3,ERCA 



003559 

1805 

8 AGO 

0100 


INC 

TRNO 

BUMP 

TRACK NUMBER 

003560 

180/ 

C840 

00 FE 


LDR 

$R4, TRNO 


003561 

1609 

C970 

004D 


CMR 

$R4, = X * 4D • 

OVER 

max?? 

003564 

180b 

0900 

18 ID 

RPDL 

BE 

<RPdGB 



003563 

003564 

160D 

C3C0 

FC9E 

* 

LNJ 

$B4 « FCWA 

FORM 

WORDS 

003565 

18 OF 

8040 

OOF 8 

RPDG- 

10 

CWAD, CAOWA 

WORD 

A TO A 


1611 

0040 

OOCC 






00356b 

1613 

0761 

FFFb 


BIOF 

RPDo 



003567 

1815 

8040 

OOEb 

RPDGA 

10 

SEElwCAOTW 




16 1/ 

0040 

00C3 






00356b 

1619 

0781 

FFFB 


biOF 

RPDgA 



003569 

181b 

8740 

OODb 


CL 

CRTKY 



003570 

1 8 1D 

b800 

1 6 F 9 

RPDGB 

LDR 

$R3 * <ERCB 



003571 

18 IF 

bF4u 

OOEb 


STR 

$R3 *RTYCT 



003574 

1841 

6040 

00E6 

RPOH 

10 

<^W6d,CB0WB 

WORD 

b TO B 


1843 

0040 

00C9 





003573 
00 357 h 

1825 

0761 

FFFb 

* 

BIOF 

RPDH 



003575 

16 2/ 

6Kb 

00E7 

RPDI 

I OLD 

*RBUF »C6ILD,BRWT 




1629 

0040 

OOCU 







182b 

0040 

02 FA 






00357b 
00 3 5/ I 

1620 

0761 

FFF9 

* 

b 1 OF 

RPDi 



00357b 

1 8 2 F 

8040 

OOCE 

RPD J 

lu 

DATA,C60TW 

READ 

b 


1631 

U040 

0067 






003579 

1633 

0781 

FFFb 


biOF 

RPDJ 



003560 

1635 

CbCO 

FFEb 


LAb 

$64,RPDH 



003581 

16 3/ 

A3C0 

030 / 


LNJ 

$B2, WAITB 

WAIT 

•TIL DONt. 

003584 

1839 

B840 

OOCb 


LDR 

$R3,RTYCT 


003583 

183b 

bF 40 

OObD 


SIR 

$R3,ERCB 



0o3 564 
003585 

1830 

C840 

0OC8 

* 

LDR 

$R4,TRNO 



00356b 

183F 

C970 

004D 


CMR 

$R4 * = X * 4D * 

OVER 

MAx?? 

003567 

1841 

0901 

0003 


bL 

RPDP 


003586 

1643 

0F61 

F F 9 1 


b 

RPDA 



003569 

1845 

6383 


RPDP 

JMP 

$63' 




003 59u * 

0 0 3 5 9 i * --- 

00359c * 

003593 * COMPARE READ AND WRITE BUFFERS 

003594 * 



Cb 

CL 

CL 

LDb 

= $R 1 
— $R 4 

$B1,BFAD 

write buffer starting 

address 


LDb 

$B2,RBUF 

READ BUFFER STARTING 

address 

CbA 

LDR 

LDR 

CMR 

BE 

CALL 

$R3,$B1•+$R1 
$R4,$B2*+$R2 
$R3,=$R4 

C6B 

2V$tR,E55,ER55 

COMPARE THEM 

SEND ERROR MESSAGE 



E55 

CBB 

* 

* 

* 

#_ 

JMP 

bDEC 

JMP 

$67 

$R6,CBA 

$67 

continue 

RETURN TO CALLER 

* 

* 

TABLE 

OF COMMANDS 

GENERATION FOR CHANNEL m 

TCGA 

LDR 

$R1,CHAO 

CHANNEL A FOR OUTPUT 


ADD 

$R1,*X»01» 



STR 

$R1,CAOCW 

OUTPUT CONTROL WORD 


DD 

$R1»= X f 02 1 



oTR 

$R1,CAOIC 

OUTPUT INTERRUPT CONTROL 


ADD 

$R1»= X *04• 



STR 

$R1,CAOTW 

OUTPUT TASK WuRD 


ADD 

$R1,=X•02♦ 



STR 

$R1,CAOLD 

I OLD 


ADD 

$R1 , = X » 08• 



STk 

$R1,CAOWA 

OUTPUT WORD A 


add 

$R1,sX•02• 


ft 

STR 

$R1,CAOWb 



LDR 

$R1,CHAI 

channel a fur input 


AuD 

$R1, = X » 02• 



STR 

$R1,CAIIC 

INPUT INTERRUPT CONTROL 


ADD 

$R1,=X•04• 



SIR 

$R1» CA1TW 

INPUT TASK WORD 


add 

$R 1 , = X•03• 



SIR 

$R 1, CAILD 

IOLD FOR READ 


ADD 

$Rl»= X * 03• 



STR 

$R1,CAIIR 

input Range 


add 

$R1,=X•04• 



STR 

$R1 ,CAIwa 

INPUT CONFIG WORD A 


ADD 

$R 1 , = X•02• 



STR 

$R1,CAIW6 

INPUT CONFIGURATION WORD B 


ADD 

$R1,=X * 06 * 



STk 

$R1,CAISW 

INPUT STATUS *ORD 


AdD 

$R1, = X•OE * 



STR 

$R1,CAIID 

INPUT ID COCE 


LDR 

$R 1 , CHN 


* 

BLZ 

$R 1,TCGBA 



* 
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0 U 3 6 4 9 




# 

T AolE 

of Commands 

•GENERATION FOR CHANNEL o 

003o3u 
003b3 i 

1 89C 

984u 

UU7C 

* 

ldr 

*ri*chbo 

CHANNEL b for output 

003o 54 

1896 

9 A7U 

0001 


add 

*R1 * = X*01» 

UU3b33 

18AU 

9F 40 

0U46 


STK 

$R1*CBUCW 

OUTPUT CONTROL WORD 

Uu3b54 

1 bA4 

9A7U 

0002 


ADD 

SRl* = X * 02 * 


UU 3b 5 3 

1 8A4 

9 F 40 

0043 


STR 

SR 1 * CbOIC 

OUTPUT INTERRUPT CONTROL 

UU3o56 

1 tt Ab 

9A7U 

0004 


ADD 

S>R 1 * = X * 04 • 

0 U 3 b 3 7 

1 bAb 

9F 4u 

0040 


STR 

SRUCBOTW 

OUTPUT TASK WuRD 

DU 3 b 3 o 

18AA 

9A7U 

0002 


ADD 

SRI * = X * 02 * 


OU3o39 

1 b Al 

9F4U 

0031 


STR 

$R 1 * CBOLD 

IOLD 

UU 3b6u 

IbAL 

9 A7U 

uooa 


ADD 

iR 1 » = X•08• 


U03bb 1 

ibbu 

9F4U 

003b 


SIR 

$R1*CB0WA 

OUTPUT WORD A 

U U 3 6 b 4 

1 bb4 

9 A 7 u 

0004 


ADO 

SR1*=X*02* 


UU 3bb8 
Ou 3 6 64 

1 bD4 

9 F 40 

00 3 b 

* 

STR 

*R1*C60WB 



003666 

0 0 3 6 6 6 
003ob / 
00 3 b 6 o 
003o69 
003b7u 

0 0 3 b 7 i 
003674 

0 0 3 b 7 3 
003674 

0 0 3 6 7 5 
00367b 

U 0 3 6 7 7 

0 0 3 6 7 o 
003679 
003680 
003b61 
0u3b84 
003683 

1 bob 
lbbb 

1 bbA 
lbbL 
lbbb 
18C0 
18C4 

1 bC4 

1 bCb 
lbCa 
18CA 

1 8 CL 

1 but 

1 bOU 
18D4 
1804 

1 8Ub 

1 

9 84U 0063 

9A70 0002 

9F4U 0033 

9A7u 0004 

9F40 0030 

9A70 0003 

9F40 0027 

9A70 0003 

9F40 0029 

9A70 0004 

9F40 0026 

9A70 0002 

9l-4u 0023 

9A70 000b 

9F40 0020 

9A70 OOOE 

9 F 4U 00 lo 

6383 

TLGbA 

* 

LDR 

ADD 

STK 

ADD 

STK 

ADD 

STR 

Add 

SIR 

ADD 

STR 

ADD 

SIR 

ADD 

STR 

ADD 

STR 

JMP 

$RI•CHBI 
$R1 * = X«02* 

SRI*CbIIC 

SR 1 * = X * 04 * 

SR 1»CBIT W 

SRi* = X•03 * 

SR 1•CbILD 
$kl*=X*03* 
SRlfCbllR 

SRI*=X*04* 

SR 1•CBIWA 
$R 1 * = X * 02 * 

SR 1•CBIwb 

SRI*=X*06* 

SR1•CBISW 

SR 1 * = X » OE * 

SRI»CBIID 

SB3 

CHANNEL b FOR INPUT 

input Interrupt control 

INPUT Task WOkD 

IOLD FOR READ 

INPUT RANGE 

INPUT CONFIG WORD A 

INPUT CQNFIGUkATIOn WORD B 

INPUT STATUS wORD 

INPUT ID COCL 

RETURN TO CALMER 

003683 



* 





0U3b86 



* 


function 

CODES 


00368/ 



* 





0036bd 

1 809 

OOOU 

LAUCW 

KlSv 

1*0 

channel A 

outpur control word 

003689 

1 bDA 

0000 

LAUIL 

RlSV 

1*0 

channel A 

output Interrupt control 

003690 

1 800 

0000 

LAUTW 

RlSv 

1 *0 

channel a 

output task word 

003691 

1 8 DC 

oooo 

LAULD 

RESV 

1 *0 

channel a 

OUTkUT 101 D FUR WRITE 

003694 

1 b DO 

0000 

LAILD 

RLSV 

1*0 

channel a 

OUTPUT Ioi D FUR READ 

00bb93 

1 bot 

OOOU 

CAOWA 

RES V 

1*0 

channel a 

OUTPUT WORD A 

008694 

180F 

oooo 

CAoWb 

RlSv 

1*0 

channel a 

output word b 

003695 



* 





0u3b96 

lbLU 

oooo 

CAi 1C 

RlSv 

1*0 

channela 

INPuT INtfRRUPT CONTROL 

0 U 3 6 9 7 

IdEl 

OOOO 

CAITW 

RLSV 

1*0 

channel a 

INPUT TASK WORD 

Ou 3 b9 o 

1 bE4 

oooo 

CA1IR 

RESV 

1*0 

channel a 

INPUT RANGF 

003b99 

18L3 

oooo 

CAIWA 

RLSV 

1*0 

channel a 

INPuT WORD A 

Ou370U 

18L4 

oooo 

CA1WB 

KtSV 

1*0 

channel a 

INPuT WORD B 

003 701 

1 8L3 

oooo 

LA1SW 

RESV 

1*0 

channel a 

INPuT STATUS word 

Ou3704 

lbtb 

OOOU 

CAIID 

RlSV 

1*0 

CHANNEL A 

INPuT ID CODE 

Uu3 703 



* 





003 704 

1 8 L 7 

oooo 

CbOCW 

KtSV 

1*0 

bhannel b 

output control word 

003 703 

1 bLb 

oooo 

LboIC 

RESV 

1 *0 

channel b 

output interrupt control 

003 70b 

1 8 L9 

oooo 

LBOT W 

RESV 

1*0 

channel b 

output task word 

003 70 / 

1 8 LA 

oooo 

LbILD 

RtSV 

1*0 



00370b 

1 8Ed 

oooo 

CbULD 

RESV 

1*0 

CHANNEL B 

OUTPUT 101 D 

003709 

18 Ec 

oooo 

LBOWA 

RLSV 

1*0 

channel b 

OUTPUT WORD A 

003 /10 

lbto 

oooo 

CbowB 

RESV 

1*0 

channel b 

OUTPUT WORD B 

Ou37 11 



* 





003 / It. 

1 8LE 

oooo 

CBIIC 

RlSv 

1*0 

channel b 

INPuT INTFRRUPT CONTROL 

003713 

1 8 E F 

oooo 

CBITW 

klSv 

1*0 

channel b 

INPuT TASK WORD 

UU3714 

1 bFu 

oooo 

Cfal IR 

RESV 

1 *0 

CHANNEL b 

INPUT RANGE 

U 0 3 7 1 5 

1 b F 1 

oooo 

LBIWA 

RESV 

1*0 

CHANNEL B 

INPuT WORD A 

003 / lb 

1 b F 4 

oooo 

CdI Wb 

RESV 

1*0 

channll b 

INPOT WORD B , 

003 /1 7 

18F3 

oooo 

CBISW 

RESv 

1*0 

channel b 

INPuT STATUS WORD 

003718 

18 F 4 

oooo 

CB1ID 

RESV 

1*0 

channel b 

INPuT ID CODE 

0U3 7 19 



* 





003720 



*** 





UU3 72 1 



* 






U03 lie 
003 723 
003/24 

00 3723 lbF3 
003/26 I b F b 
00372 / lbKJT 
00372b 1 b F b 

0U3/29 lbFv 
003730' I b F A 
003731 lbFd 
003734 lbFC 
00373b lbFO 
003734 1 bF L 

003 733 1 bF F 

003/36 1900 

003/37 1901 

00373b 1902 

003/39 1903 

003740 1904 

003741 1903 

003744 190b 

003743 190/ 

00374*+ 190b 

003743 1909 

003746 190A 

003747 1903 

003 /4o 190C 

003749 1900 

003750 1901 

003751 19 0 F 
003754 1910 

003753 

003754 3000 

003755 3000 

00375b 1911 

003/57 1911 

00375b 1914 

003759 1913 

0 0 3 7 6 0 1913 

003761 1916 


0000 

0000 

OOOo 

0000 

0000 

0000 

0100 

booo 

8400 

8100 

8500 

8300 

COOO 

8000 

4000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

3000 

2D00 

0000 

1911 

3000 

OOOU 

0000 

0000 

0000 

0000 


* 


* 

CONSTANTS AND POINTERS 

TEST ID 

RESv 

i *0 

bMLD 

RlSv 

1*0 

CkTRY 

KlSV 

1*0 

ERCA 

RESV 

1*0 

ERCB 

RESV 

1*0 

KCb 

DC 

0 

SEEK 

DC 

2 * 0100 * 

FMAT 

DC 

Z•8000• 

SFMT 

DC 

Z * 8400 • 

DATA 

DC 

Z 1 8100• 

WDLD 

DC 

2* 8300* 

DIAGN 

DC 

Z*8300• 

WAKW 

DC 

Z•CuOC» 

1NIT 

DC 

Z'buOO* 

SIO 

DC 

2 * 4U0G• 

DP 

RESV 

1*0 

RTYCT 

RlSV 

1*0 

TRNO 

RESV 

1*0 

ETRNO 

KtSV 

1*0 

CWAD 

RlSV 

1*0 

SECT 

RESV 

1*0 

CWbD 

KLSV 

1*0 

SAVE 

KLSV 

1*0 

SAVEA 

RESV 

1 *0 

STW 

RtSV 

1*0 

BFAD 

DC 

<ZHCOMM*X*3000* 

RBUF 

DC 

<ZHCOMM*X*2DOO* 

EDC 

DC 

0 

HERE 

tuU 

$ 


OKG 

2 ERU + X * 3000• 

BUFW 

DC 

<ZEkO+X• 3000 • 


OKG 

HERE 

FLAG 

RtSV 

1*0 

RAND 

RLSV 

1*0 

RRR 

RESV 

2*0 

RNG 

RtSV 

1 *0 

TEMP 

RESV 

1*0 


POINTER FOR EkROR TYPFOuT 
BAD MEDIA CHANNEL 
CURRENT RETRYu 
ERROR COUNTER FOR DRIVE A 
ERROR COUNTER FOR DRIVE B 

recalibrate task word 

SEEK TASK WORD 

FORMAT R/W TAuK WORD 

FORMAT READ TASK Word (HEADERS ONLY) 

DATA R/W TASK WORD 

WRITE DELETED DATA TASK WORD 

DIAGNOSTIC R/w TASk WORD c 

WRAPAROUND REhD/WRttF TASK WORD 

initialize CONTROL WORD 

stop i/o contkOl Word 

data pattern 

RETRY COUNTER 
TRACK NUMBER 
TRACK IN ERROR 
WORD A TO BE OUTPUT 
SECTOR NUMBER 
WORD b TO BE OUTPUT 
GENERAL SAVE lOCATtON 
GENERAL SAVE LOCATION 
STATUS WORD 


EDC CHARACTERa ADDrfSS 


HIGH BIT SET bAYS WRITING 
RANDOM NUMBER ST0RAGF 
RECORD COUNTER 
RANGE TO BE OUTPUT 
GENERAL SAVE LOCATION 
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003 762 

1917 

0000 



CHAO 

RESV 

1*0 

CHANNEL A OUTPUT 

003763 

1918 

0000 



CHAI 

RESV 

1*0 

CHANNEL A INPuT 

003764 

1919 

0000 



CHbO 

RESV 

1*0 

CHANNEL B OUTPUT 

003765 

19 1A 

0000 



CHbl 

RESV 

1*0 

CHANNEL b input 

003766 

191b 

O000 



CHN 

RESV 

1*0 

WORK AREA 

003767 

1910 

0000 



EMDRNO 

RESV 

1*0 


003766 

1910 

0000 



PCNT 

RESV 

1*0 

PASS COUNTER 

003769 

191c 

0000 



ESECT 

RESV 

1*0 

SECTOR IN ERRuR 

0 0 3 7 7 u 

19 1 f" 

0000 



TOOTA 

RESV 

1*0 

NUMBER OF RETkYS For tYPEOUT 

003771 

1920 

0000 



TOUTb 

RESV 

1*0 

channel for TYPEOUt 

00377^ 

1921 

0000 



HERR 

RESV 

1*0 

••HARD ERRORS- 

003773 

1922 

0000 



FkMW 

RbSV 

1*0 


003774 

1923 

0000 



INCNT 

RESV 

1*0 


003773 

1924 

0000 



CPFL 

DC 

2*0000* 

003776 

1923 

005C 



CNTL1 

DC 

X * 005C• CONTROL CHARA FOR <;PArE 

003777 

1926 

0000 



RSTRT 

DC 

0 

RESTART COUNTER 

003776 

1927 

0000 



DR1VA 

DC 

0 

NO DRIVE FALG FOR CHAN A 

003779 

1926 

0000 



DRIVE 

DC 

0 

NODRIVE FLAG FOR cLan B 

0 0 3 7 8 u 

1929 

0000 



STATUS 

DC 

2*0000* STATUS REGISTcR ENTRY 

003781 

192 A 

0000 



DORIS 

dc 

0 

INTERRUPT CONTROL FUNCTION CODE 

00378c 

192b 

0000 



DR IN 

DC 

0 

INTERRUPT CONTROL FUNCTION 

003783 

192C 

0000 



TRNOA 

DC 

Q 

TRACK NUMBER 

003784 

1920 

2020 

2020 

4E4F 

NOTST 

text 

9 

NO SUCH TEST* PLEASE TRY AGAIhS* 


1930 

2053 

5543 

4820 







3443 

5354 

2C20 







504C 

4541 

5345 







2054 

5259 

2041 







474 1 

4941 

2400 





003783 

19 3 F 

0000 



pfl 

oC 

0 


003786 

1940 

0000 



HERTZ 

DC 

0 

POWER FREQUENCY 

003787 

1941 

0000 



ELFL 

DC 

0 


003786 

1944 

0000 



kANGE 

DC 

0 


003789 

1943 

0000 



ANSR 

RESV 

3*0 


003790 

1946 

0000 



SAVEb 

RESV 

1*0 


003791 

194 7 

0000 



FRM 

DC 

0 


003794 

1946 

0000 



STATWD 

DC 

0 


003793 

1949 

2424 



MCRLF 

TEXT 

**$• 


003 7 94 

194A 

4649 

5240 

5741 

MFRMW 

TEXT 

•FIRMWARE REVISIONS* 


1940 

3243 

2052 

4556 







4953 

494 F 

4E24 





003793 

1933 

2020 

2020 

2034 

TED1 

TEXT 

• 

TEST COMPLETED** 


1956 

<+533 

5420 

434F 







4050 

4C45 

5445 







4424 







003796 

1950 

5732 

4F 4E 

4720 

MESG 

TtXT 

'WRUNG FORMAT ONS* 


i960 

464F 

3240 

4154 







204F 

4E24 






003797 

1963 

4121 

2020 

4241 

TSTA 

text 

•A* 

BASIC CONTROLLER FUNCTIONS TEbT $• 


1966 

3349 

4320 

434F 







4E54 

524F 

4C4C 







4552 

2046 

5 34E 







4354 

494F 

4E53 







2054 

4553 

5420 







2400 







003796 

19 76 

422b. 

2020 

5752 

T STB 

TEXT 

•B. 

WRAP AROuND WRITE-READ TEST *' 


197b 

4150 

2041 

524F 







554L 

4420 

5752 







4954 

4520 

5245 







4144 

2054 

4553 







3420 

2400 






003799 

1969 

452E 

2020 

5452 

TSTE 

TEXT 

• E • 

TRACK CAPACITY TEST *• 


i960 

4143 

4b20 

4341 







5041 

4349 

5459 







2054 

4553 

5420 







2400 







0O360O 

1996' 

4621 

2020 

4449 

TSTF 

TEXT 

* F • 

DIAGNOSTIC WRITE-READ TEST *• 


1999 

4147 

4b4F 

5334 







<+943 

2057 

5249 







5445 

2052 

4341 







4420 

5445 

5354 







2024 







003601 

1 9 A6 

4421 

2020 

4449 

TSTD 

TEXT 

♦D. 

DISKETTE DRIVE DOOR TEST** 


19 A9 

334b 

4354 

5445 







2044 

5249 

5645 







2044 

4F4F 

5220 







5445 

5354 

2400 





00 3 60 <_ 

19b3 

432t 

2020 

494E 

TSTC 

TEXT 

•C. 

INTERRUPT TEST *• 


1 9b8 

5445 

3252 

5550 







5<+20 

5445 

5354 







2020 

2400 






003603 

19CU 

4 721 

2020 

4259 

TSTG 

Text 

•G. 

BYTE ADDRESSING TEST** 


1903 

54-45 

2041 

4444 







3245 

5353 

494E 







4720 

5445 

5354 







2400 







0U3604 

1900 

482 E 

2020 

5348 

TSTH 

TEXT 

•H. 

SHORT RANGE TEST *• 


1900 

4F52 

5420 

5241 







4E47 

4520 

544 5 







5354 

2024 






OO3603 

1906 

492L 

2020 

464F 

TST I 

TEXT 

• I • 

FORCED ERROR TEST $• 


190b 

5243 

4544 

2045 







3232 

<+F52 

2054 







4553 

5420 

2024 





00360o 

19E<+ 

4A21 

2020 

5732 

TSTJ 

TEXT 

• J. 

WRITE HEADERS,ALL TRACKS*ALL SECTORS *• 


1907 

4954 

4320 

4845 







4 1 44 

4552 

5 32C 







4 1 4 C 

4C20 

5452 







4143 

4b53 

2C41 







4C4C 

2053 

4543 







544h 

5253 

2024 





0 0 3 6 0 7 

1 9F 9 

4b2t 

2020 

5245 

TSTK 

TcXT 

*K. 

READ AND VERIFY ALL HEADERS *• 


19F0 

4144 

2041 

4E44 







2056 

4552 

4946 







3920 

4 14C 

4C20 







4843 

4144 

4552 







3320 

2400 






00 3 6 0 6 

1 MOA 

4C2E 

2020 

5732 

(STL 

TEXT 

* L • 

WRITE DATA (00000000)ALL SECToRS,All TRACKS $' 


1 AOO 

4954 

4520 

4441 







3441 

2026 

3030 







3030 

3030 

3030 







2941 

4C4C 

2053 







4343 

544F 

5253 







2C4 1 

4C4C 

2034 
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3241 

2400 

434b 

5320 




003609 

1A23 

4D2t 

2020 

5245 

TSTM 

text 

* Mm READ DATA ALL SECTOkS, ALL TRACKS $• 


1 A26 

4 144 

2044 

4154 






4120 

4140 

4C20 






3343 

4 354 

4F32 






332C 

2041 

4C4C 






2034 

5241 

4346 






3320 

2400 





UU36 iU 

1 A3 7 

4 E21 

2020 

5752 

TSTN 

text 

* hw WRITE DATA (11111111) All SECIQRS, ali tracks $• 


1 A3m 

4 9 54 

4520 

4441 






3441 

2026 

3131 






3131 

3131 

3131 






2920 

414C 

4C20 






3343 

4354 

4F52 






332C 

2041 

4C4C 






2034 

5241 

434B 






3320 

2400 





UU3t> 1 i 

i A3 1 

4F 2L 

2020 

5245 

1 ST 0 

text 

•0. READ DATA ALL SECTORS, ALL TRaCKS *• 


1A34 

414m 

2044 

4154 






4120 

414C 

4C20 






3343 

4354 

4F52 






332C 

2041 

4C4C 






2034 

3241 

4346 






3320 

2400 




'P. WRITE DATA (10101010) ALL SECTORS, ALI TRACKS $» 

003b 1 L 

1 M6b 

3021 

2020 

5752 

TSTP 

TEXT 


1A66 

4934 

4520 

4441 






3441 

2028 

3130 






3130 

3130 

3130 






2920 

414C 

4C20 






3343 

4334 

4F32 






3 32 C 

2041 

4C4C 






2034 

5241 

434B 






3320 

2400 





UU3b 1 3 

1A 76 

3 12t 

2020 

5245 

TSTQ 

TtxT 

*0, READ DATA ALL StCTORS, ALL TRACKS *• 


1A62 

4 144 

2044 

4154 






4120 

414C 

4C20 






334b 

4354 

4F52 






332C 

2041 

4C4C 






2034 

5241 

4346 






3320 

2400 





0U3ti 14 

1A93 

322t 

2020 

5752 

1STR 

text 

*R, WRITE DATA (RANDOM) ALL SECTOkS,AU TRACKS 


1A9 o 

4934 

4520 

444 1 






3441 

2028 

5241 






4t44 

4F 4D 

2920 






414C 

4C20 

5345 






43 54 

4p 52 

532C 






414C 

4C20 

5452 






4143 

4b53 

2024 




0U36 1 3 

1 AMD 

532E 

2020 

5245 

TSTS 

TEXT 

•S. READ DATA ALL SECTORS, ALL TRACKS 9,1 


1 A At 

4 144 

2044 

4154 





4120 

414C 

4C20 






5345 

4354 

4F52 






3320 

2041 

4C4C 






2054 

5241 

434B 






3320 

2400 





00 3 6 1 6 

1 MbP 

3421 

2020 

5241 

TSTT 

text 

• T• RANDOM SEEKS AND READS $• 


1AC2 

4144 

4F4U 

2033 






434 5 

4b5 3 

2041 






4E44 

2052 

4541 






44 53 

2024 





003617 

I ACu 

552E 

2020 

5550 

TSTU 

text 

•U, UPDATE WRITES (b RECORDS)** 


1 ADO 

4441 

5443 

2037 






5249 

5445 

5320 






2636 

2052 

4543 






4F52 

4453 

2924 



•V. READ AND COMPARE UPDATED RECOkDS** 

003616 

1 ADC 

5621 

2020 

5245 

1ST V 

text 


ImDP 

4144 

2041 

4L44 






2043 

4F4D 

5041 






5245 

2055 

5044 






4134 

4544 

2052 






4543 

2400 

4 F 5 2 

4453 




003619 

1 AtF 

5 721 

2020 

5752 

TSTW 

text 

*W. WRITE DELETED DATA FIELDS$* 


1AF2 

49 54 

4520 

4445 






4045 

5445 

4420 






4441 

5441 

2046 






4945 

4C44 

5324 



•X. READ AROjND DELETED DATA FIELoS $• 

003b2o 

1 aFE 

382L 

2020 

3245 

TSTX 

text 


IbOi 

4144 

2041 

524F 






534E 

4420 

4445 






404“5 

5445 

4420 






4441 

5441 

2046 






4945 

2400 

4C44 

5320 



*Y. READ DELETED DATA FIELDS $• 

UU3o21 

ibi i 

5921 

2020 

5245 

TSTY 

text 


1 b 14 

4 144 

2044 

454C 






4554 

4544 

2044 






4 154 

4120 

4649 






4540 

4453 

2024 




003622 

1020 

2046. 

4558 

5424 

MNEXT 

text 

• NtXTS• 

003623 

003624 





* 

XEOC 

ZHIAFB 

003623 





# 



003620 





* 

const ants and track information 

003627 





* 



003626 

1023 

0080 



RLb 

DC 

X * 80 * RECORD LENGTH IN ByTFS 

003629 

1 b24 

0040 



RLW 

DC 

X * 40 * RECORD LENGTH IN WORDS 

003630 

102 3 

0066 



BRwH 

DC 

X • 66 • BYTES TQ WRITE HEADFRS 0 

X * DUO* BYTES TO READ OR WRTTF TRACK 

003o31 

1 b2t> 

ODOO 



bkwT 

DC 

003o32 

1 b27 

1264 



WRWT 

DC 

X ' 1264* WORDS TO WRITE OR RFAD TRACK 

003633 

1026 

1318 



BRdT 

DC 

X*l318* BYTES FOR DIA^N. RFAD TRACK 

O03o34 

1029 

0090 



BFkT 

DC 

X•009C * BYTES TO FORMAT READ ONE TRACK 

003633 

1 02 A 

01)68 



bFkTl 

DC 

X * 0D68 * 

00363o 





* 



003637 





# 



003636 





* 


HERE UNTIL OPERATION COMPLETED 

003639 





* 

WAIT 

003640 





# 



003641 

102b 

D870 

FFFF 


WAIT 

LDK 

SR5 , sZ * FFFF * 

003644 

1020 

DF40 

0035 



STR 

*R5, IOTRYS 

003643 

102F 

0840 

FOB 5 



LDk 

$R5,CAISW 

003644 

1031 

D270 

0018 



SUb 

$R5 * =X * 18 * 
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003645 

1 b33 

DF4Q 

FDE8 

STR 

$R5iEMDRNO 

003646 

ib35 

C3CG 

FB08 

LNJ 

$84 *C0 

G G 3 8 4 7 

1B3 7 

8040 

F0D5 

WAITA 10 

STW *CAISW 


ib39 

0040 

FOAB 



003646 

IB3B 

0 781 

0017 

B10F 

WAITAA 

003649 

1 d3D 

0F8 1 

F9A1 

b 

OE 

GG3o5G 




* 


GG3b51 

1 b3F 

0870 

FFFF 

WAITB LOR 

$R5 *~Z* FFFF• 

003o52 

Ib4i 

DF40 

0021 , 

STR 

$R5 «IOTRYS 

GG3b53 

IB43 

0840 

FOAF 

LOR 

$R5*CBISW 

GG3bS4 

lb45 

D270 

0018 

SUB 

$R5*sX»16* 

003655 

ib47 

OF 40 

F0D4 

STR 

SR5 *EMDRNO 

GG3b56 

ld49 

C3C0 

F BIB 

LNJ 

$B4 *COB 

003657 

Ib4b 

8040 

FOCI 

WAITBA IQ 

STW ? CBISW 


IB4D 

0040 

F0A5 



003b5o 

1B4F 

0781 

0006 

B1UF 

WAITBb 

003659 

i 135 I 

OF 81 

F98D 

B 

OE 

GG3b6G 




* 


G03o61 

1B53 

88C0 

GOOF 

WAITAA DEC 

IOTRYS 

003o62 

lb55 

0840 

GOOD 

LDR 

$R5*IOTRYS 

003b63 

IBS 7 

S901 

OOOC 

bEZ 

$R5*wAITC 

003664 

1659 

OF 8 1 

FFD 0 

B 

WAITA 

003865 




* 


003866 

lbbb 

88C0 

000 7 

WAITBB DEC 

IOTRYS 

G 0 3 b 6 7 

1650 

0840 

0005 

LOR 

$R5,IOTRYS 

GG386b 

165F 

5901 

0004 

BEZ 

$R5 *WAITC 

003669 

1 bb 1 

OF 8 1 

FFE9 

B 

WAI T bA 

G03b 7G 




* 


GG3b 71 

1663 

0000 


IQTRYS RESV 

1*0 

00367k: 




* 


GO 3b73 

1 bb4 

93C0 

FA03 

WAITC LNJ 

S8UDEXA 

GO 3b 7 h 

1 bbb 

FbCO 

0003 

CALL 

ZV$T*TMOUT 


lbbb 

0380 

0000 X 




ibbA 

OF80 





166b 

1674 




GG3b75 

lbbC 

FBCO 

0003 

CALL 

ZV$bR *E57 *ER 


lbbb 

0380 

0000 X 




16 70 

OF 80 





1671 

167 3 





167<1 

1FAA 




00367b 

167 3 

8382 


E57 JMP 

$B2 

G G 3 b 7 7 




* 


GG3b7b 

1 b 7 4 

3449 

4045 4F55 

TMOUT I EXT 

•TIMEOUTS* 


Lb7 r 

5424 





003879 





* 


003880 





* type 

OUT ROUTINES 

003881 





* 


003882 





X 


0G3b83 

1678 

FBCO 

0003 


RTYMSG CALL 

ZV$T.ZVSTC*RETRY 


1 b7A 

0380 

0000 

X 




1 B7l 

OF 60 






1670 

1C01 





003884 

i b 71 

FBCO 

0003 


CALL 

ZVSTH * TOUT A 


ibbO 

0380 

0000 

X 




168 2 

OF 8 0 






1683 

19 1 F 





003885 

1 b84 

FBCO 

0003 


CALL 

ZV$1 * DRNO 


lbbb 

0380 

UOOO 

X 




1686 

0F80 






1689 

1636 





003886 

166a 

FbCO 

0003 


CALL 

ZV$iH*TOUTB 


168C 

0380 

0000 

X 




1686 

OF 80 






ibbF 

1920 





003o87 

ib90 

8381 



JMP 

$B1 

003688 





X 


003689 





* 


003890 

1691 

FbCO 

0003 


SWPMSG CALL 

ZV$T.ZV$TC*RM8 


1693 

0360 

0000 

X 




ib95 

OF 60 






1696 

lCFo 



CALL 


00369 i 

1 b9 7 

FBCO 

0003 


ZV$iHfBMED 



1699 

0380 

0000 

X 




lb 9 b 

OF 80 






1690 

1 8F 6 





003o9c 

1690 

FBCO 

0003 


CALL 

ZVS1•ZV$TC * SWAP 


169F 

0380 

O000 

X 




1 bA 1 

OF 60 






1 b A 2 

1031 





003893 

16A3 

6381 



JMP 

$B 1 

003894 





* 


003895 

1 6A4 

FbCO 

0003 


REMMED CALL 

zvs i• zv$tc*rrmed 


16A6 

0360 

0000 

X 




16A8 

OF 80 






i BA9 

100C 





ou369o 

1 BAa 

FbCO 

0003 


CALL 

ZV$ 1 * ORNO 


IdAC 

0380 

0000 

X 




ibAE 

OF 80 






1 OAF 

1636 





0U3o97 

1660 

FBCO 

0003 


CALL 

ZV$TH*TOUTb 


1 bo2 

D36U 

0000 

X 




1 dd4 

OF 60 






1665 

1920 





003896 

Ibbo 

8361 



JMP 

$B 1 

003699 





X 


003900 

166 7 

FBCO 

0003 


sulong call 

ZVST.ZVSTC*ABORT 


1669 

0380 

0000 

X 




1 bbb 

0F60 






lbbC 

104F 





003901 

1 bbo 

6361 



JMP 

$B1 


CHECK IF CHAN A* Is RFADY 


CHECK IF CHAN B* Is READY 


TIME OUT 

SEND ERROR MESSAGE 


TYPE*RETRYS* 

TYPE NUMBER 

type * Channel * 

TYPE CHANNEL NUMBER 

RETURN TO CALlER 
TYPE ’SUSPECT MEDIA* 

ON THIS CHANNEL 

SWAP MEDIA 

RETURN TO CALLER 
REPLACE MEDIA 

CHANNEL 


ABORT TEST MESSAGE 



fi" X 

x... y 
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0U390<i 

003903 

Ibbc. 

9F80 

1916 



* 

I OF A 

STB 

$bi.<tlmp 


003904 

lbCO 

9840 

F 05 5 



LDR 

$R1.TEMP 


003905 

lbC2 

9270 

0007 




Sub 

$R1.sX * 07 • 


00390b 

1 bC4 

9 F 40 

F05 1 




str 

SR 1 *TEMP 


003907 

1 bCb 

F6G0 

0003 




CALL 

ZV$UZV$TC.IQF 

10 failed 


1 bCb 

0380 

0000 


X 






IBCa 

OF 80 









lbCo 

1G23 








00390b 

lbCG 

FbGO 

0003 




GALL 

2VSIH*TEMP 



iBCL 

0380 

0000 


A 






IBoo 

OF 80 









lbOl 

1916 








U03909 

1BD2 

FbGO 

0003 




GALL 

2V3.T .DRNQ 

channel 


1004 

0380 

0000 


X 






IbOb 

OF 80 









lbOY 

1638 








0U3910 

IbOb 

FBGO 

0003 




gall 

ZVS> TH.CHAI 



lbiM 

0380 

0000 


X 






lbuC 

OF 80 









lbUD 

1918 








•003911 

IbDe 

lbDO 




10FAA 

LOU 

$~$AF 


0039-14 

AbbO 

1918 




LAB 

$62 *<CHAI 

channel NUMBEk 

0U391j 

Ibeo 

AF80 

lbDO 




STB 

$B2 »<IOFAA 

003914 

1 b t_4 

FbGO 

0003 




CALL 

ZV$T.ZV$TC.ABT 



lbt4 

0380 

0000 


X 






1 btb 

OF 80 









1BL7 

1075 








uu 3 915 

IbLb 

9C80 

1916 




LDB 

*61.<TEMP 


00391b 

lbtA 

FBGO 

0003 




CALL 

ZV$ER .E58 *ER58 

send ERROR MESSAGE 


lbEG 

0380 

0000 


X 






ibll 

OF 80 









1BLF 

IBF 1 









lbFo 

lFAu 








003917 

IbFi 

0F8 1 

L53C 



E58 

B 

RERUM 


00391o 






* 




003 919 

lbF3 

AB80 

1 91A 



IGFB 

LAB 

*B2.<CHBI 


003920 

lbFb 

AF80 

lbDO 




STB 

$B2 *<IOFAA 


00392 1 

ibF 7 

0 F 8 1 

FFC6 




b 

10FA 


003924 






* 

ML3SA 

GLS FuR THE CONSOLE 


003923 






* 




00392* 

lbF9 

2044 

4953 

4d45 


MLSGA 

T t_XT 

* DISKETTE TEST • 



lbFG 

5454 

4520 

5445 








5354 

2020 







00392b 

1C01 

2044 

494D 

5333 


SLAF 

TEXT 

• DiMS3 REV. E • 



1C04 

2020 

5245 

562E 






2045 

2020 







003929 

1C09 

4645 

4220 

3136 


LLAF 

TEXT 

•FEd 16. 1978$* 



1GUG 

2G20 

2400 

3139 

3738 






00 39 3u 

lcio 

4 34F 

5059 

5249 



Text 

*COPYRIGHT1975*76.77 

.78BYHQNEYWELLiNC.S 


1G13 

4 74b 

5431 

3937 







352G 

3736 

2C37 








3 72G 

3738 

4259 








484 F 

4t45 

5957 








454G 

2024 

4G49 

4L43 






003931 

1C2 3 

494 F 

2046 

4149 


IGF 

text 

•10 FAILED $• 



1 C4o 

*C45 

4420 

2400 






00393*: 

1C29 

2020 

2020 

2050 


REMOVE 

TEXT 

• PLEASE REMOVE 

PROGRAM DISKETTE FR( 


1G2C 

4G45 

4153 

4520 







5245 

404F 

5645 








2050 

524F 

4752 








4140 

2044 

4953 








4b45 

5454 

4520 








4652 

4F4D 

2054 








4845 

2044 

5249 








5645 

2400 







003933 






# 




003934 






* 




00393b 

1043 

454L 

442D 

4F46 


MLSGN 

TEXT 

• ENo-GF-TEST $• 



1C4d 

2054 

4553 

5424 





00393d 

1C49 

5245 

4144 

2054 


READ 

text 

•READ THE ENTIRE DISKETTE VOLUMES• 


1C4G 

4845 

2045 

4L54 








4952 

4520 

4449 








534b 

4554 

5445 








2056 

4524 

4F4C 

554D 






00393 7 






* 




00393b 

1G59 

2054 

4553 

5420 


IMA 

Teat 

• TeST A $• 



1G5G 

^120 

2024 







0o3939 

1 G5E 

2054 

4553 

5420 


1 Mb 

Text 

• test b $• 



1Gb 1 

4220 

2024 







003940 

1G63 

2054 

4553 

5420 


IMG 

text 

• test c $• 



1 Gbo 

4320 

2024 







003941 

IGob 

2054 

9553 

5420 


1MD 

tlx f 

• test d $• 



IGbb 

4420 

2024 






0u394b 

1 GbO 

2054 

4553 

5420 


1 ML 

Teat 

• test e $• 



1G 70 

4520 

2024 






003943 

1G74 

2054 

4553 

5420 


IMF 

text 

• test f $• 



lG7b 

4620 

2024 






003944 

1G 7 7 

2054 

4553 

5420 


IMG 

text 

• test g $• 



1G 7 A 

4 720 

2024 







00394b 

1G7G 

2054 

4553 

5420 


1 MFl 

text 

• test h $• 



1G 7 F 

4820 

2024 






Uo394o 

1GB1 

2054 

4553 

5420 


IM1 

teat 

• test i $• 



1GB4 

4920 

2024 







0 0 3 9 4 7 

lGBb 

2054 

4553 

5420 


I MO 

Teat 

• test j $• 



1GB 9 

4A20 

2024 







00394b 

1 Gbo 

2054 

4553 

5420 


1MK 

text 

• test k $• 



lGdt 

4b20 

2024 







003949 

1G90 

2054 

4553 

5420 


I ML 

Teat 

* test l $• 



1G93 

4G20 

2024 







003450 

1G93 

2054 

4553 

5420 


1 MM 

teat 

• Test m $• 



1 G9b 

4020 

2024 







003951 

1G9 A 

2054 

4553 

5420 


1 MM 

teat 

• test n $• 



1 G 90 

4620 

2024 
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PAGE 50 


00395z 

iCvF 

4054 

4553 

3420 

IMG 

TEXT 

• test 0 $* 


ICA2 

*+F 20 

2024 





00393b 

1CA4 

205*+ 

45 5 3- 

5420 

1 HP 

TbXT 

• TEST P $• 


1 LA / 

5020 

2024 




00395*+ 

1CA9 

2054 

4553 

5420 

1 Hu 

TEXT 

• test q s* 


1CAC 

5120 

2024 




003955 

ICAc 

2054 

4553 

5420 

IHK 

TbXT 

• test r *• 


ICoi 

5220 

2024 





0u 3v 5 o 

1CB3 

2054 

4553 

5420 

IMS 

TEXT 

♦ test s *♦ 


1CB6 

5320 

2024 



003957 

lCbb 

2054 

4553 

3420 

1 HT 

TbXT 

• TEST T *• 


1 Cdu 

5420 

2024 





00395b 

ICuo 

2054 

4553 

5420 

IMU 

TEXT 

• Test u *• 


iccu 

5520 

2024 





0O3959 

1CC2 

2054 

4553 

5420 

1 HV 

Text 

• TEST V *• 


1CC5 

5620 

2024 





00;>56O 

ICC 7 

2054 

4553 

3420 

iMw 

TEXT 

• test w $* 


1 CCA 

5720 

2024 




00396 x 

iccc 

2054 

*+553 

5420 

I MX 

TEXT 

• test x $• 


ICCP 

5620 

^400 




003964 

ICOi 

5245 

5452 

5953 

RETRY 

TEXT 

• RE 1 RYS:$• 


1 (_04 

3A24 






003963 

1CD5 

5245 

5452 

5949 

RTYING 

TEXT 

•RETRYINGS * 


ICDb 

4E47 

2400 





00396*+ 

1CDA 

2020 

2020 

4348 

CHtCK 

TlaT 

• CHECK LIbHT IS 0 N$• 


icdu 

4543 

4b20 

4C49 





474 b 

5420 

4953 






2041- 

*+E24 





003965 

1 Ct 3 

2050 

4 F 5 7 

4552 

MPQWER 

TEXT 

• POWER FREQUENCY** 


1 Ctc 

2046 

5245 

5 i 55 






454E 

4359 

2400 




00396b 





* 



003967 





* 

ACTION 

MESSAGES 

003566 





* 



003969 

ICtfc. 

' 5 754 

4150 

2041 

KMA 

text 

•WRmP AROUND wRITE/READ FAILED*• 


ICE 1 

524P 

554t 

4420 





5752 

4954 

452 F 






5245 

4144 

2046 






4149 

*+C4 5 

4424 




003970 

iCPD 

5355 

5350 

4543 

RMb 

TEXT 

•SUSPECT BAD MEDIA ON CHANNELS• 


1000 

5420 

4241 

4420 





4045 

4449 

4120 






4 P 4 b 

2043 

4641 






4L4t 

454C 

2400 




003971 

1D0C 

5245 

4D4F 

5645 

RRhED 

TtXT 

• remove and replace media** 


iOOr 

2041 

4b44 

2052 





4550 

4C41 

4345 






2040 

2400 

4544 

4941 




00397 2 

1019 

5452 

4 1 A3 

4620 

SPOUT 

TlXT 

•TRmCK capaciiy out of tolerance** 


1D1C 

4341 

5041 

4349 






5459 

204F 

5554 






2G4F 

4620 

544F 






4C45 

4524 

3241 

4E43 




003973 

1049 

5245 

5354 

4152 

RbSTRT 

text 

•RESTART PROGRAMS* 


IO 4 C 

5420 

5052 

4 P'47 






5241 

4024 





00 39 74 

1031 

5357 

4150 

2040 

SWAP 

TbXT 

•SWAP MEDIA BETWEEN DRIVES AND TRY AGAjns* 


103*+ 

4544 

4941 

2042 





4 5 54 

5745 

454E 






2020 

4452 

4956 






4553 

2041 

4E44 






2054 

3239 

2041 






4741 

494 b 

2400 




0 U 3 9 7 5 

1 046 

4452 

4956 

4320 

CONE 

TEXT 

•DRIVE ON CHANNELS* 


1049 

4F4t 

2043 

4841 




4L4E 

4 54C 

2400 




0035/6 

104 F 

455b 

4345 

5353 

ABORT 

TEXT 

• EXCESSIVE RETRYS, TEST ABORTED** 


1054 

4956 

4320 

5245 





5452 

5953 

2 C 20 






5445 

5354 

2041 






42 4 F 
2400 

5254 

4544 




003977 

l D3F 

204b 

4F54 

2032 

NRDY 

TEXT 

• NO1 READY** 


1064 

4541 

4459 

2400 




00357b 

1 0b5 

2044 

454C 

4534 

OPENS 

Text 

• DELETED DATA FIELD BIT NOT SETS* 


106 b 

*+549 

2044 

4154 





4120 

4649 

454C 






4420 

4249 

5420 






4E4F 
54 24 

5420 

5345 




003979 

1075 

5445 

3354 

2041 

AbT 

TEXT 

»TLbT ABORTED** 


10 76 

424F 

2400 

3254 

4544 




00398u 

107l 

494b 

4C45 

4741 

WRUNG 

TEXT 

•ILLEGAL CHANNEL ENTRY, TRY AGAIN** 


1071- 

4C20 

4346 

414E 






4E45 

4C20 

454E 






5452 

592C 

2054 






5259 

2041 

4 741 






494E 

2400 





003981 

1 060 

554E 

5245 

4144 

UNKbC 

TEXT 

•UNREADABLE RECORDS;** 


1090 

4142 

4C45 

2032 






4543 

3A24 

4F52 

4453 




Ou398c 

1097 

4346 

4543 

4B20 

CCN 

TEXT 

•CHECK CHANNEL NUMBERS** 


109m 

434b 

414b 

4E45 






4C20 

4E55 

4042 






455Z 

5324 





003983 

1OA2 

4259 

5445 

2041 

BYTbAD 

Text 

•BYTE ADDRESSING MODE bADS* 


10A5 

4444 

5245 

3353 






494b 

4720 

*+04F 






4445 

2400 

2042 

4144 




0 u 398 *+ 

1 OAF 

203F 

3 A24 


GOES 

text 

* ?;$• 

003985 





* 



003586 





* 



003987 





* 

CuNFIGORE FOR ONE DRIVE ONLY 

003986 





* ************************************* 

003989 





* 



0G399U 





* 



003991 

1 Obi 

9670 

OF 80 


CFc 

LOR 

$R1,=2*0F80* BRANCH INSTRUCTION 

003992 

10b3 

9P40 

t .6 1 3 



STR 

*RlfINCBX STORE BRANCH INSTRUCTION 



<x "' 

(, , 

H. ; _ y 





i I I L l D1 h b 3 * ' R t V t • 


PAGE. 


51 


uu 3 V9 j> 
00399a 
0 U 3 9 9 5 
003990 
003^97 
0 U 3 9 9 6 
OG3999 
OG4G0u 
GO4U0 i 
uu4uO*_ 
OOaOOJ 
004004 
Ou4u03 
Ou^uUo 
0U400 I 
0 0 4 O 0 0 
0 0 4 u 0 9 
00 AU 1 0 
U04U1 i 
OuAO 1 2 
OuAU 1 3 
OOAU 1 A 
U 040 1 3 
0 04u 1 o 
0U4U 1 7 
004010 
0 04u 1 9 
G0402u 
0 uau 2 i 
0OAu2<: 
0 Uau 2 3 
004024 
0U4O2 3 
00402b 
0 0402 7 
0 04o 2 b 
0u4o2 9 
0040 3o 
004031 
G0A03*. 
004033 
004034 
004o 3 3 
00403b 
004037 
0 0 4 0 3 o 
004O39 
0 o 4 o 4 o 
00404 i 
00404^ 
004043 
004044 
004043 
G04o4b 
004047 
00404b 
004049 
0 0 4 0 5 0 
004051 
0040 be 
0 040 5 3 
U0AG5A 
004o 5 5 
0 04 0 5 b 
004 o 5 7 
0040 5 b 
004059 
004060 
004061 
0 04 0 6 c 
0O4O63 
004064 
0G4O6 3 
00406b 
O04o67 
O04o6o 
0 0 4 0 6 9 
0u4o 7u 
0040 71 
00A072 
004073 
004074 
0040/3 
004 o7o 
004o77 
0 0 4 o 7 o 
0 O 4 u 7 9 
004080 
004081 
00408^ 
0 040 8 3 
004084 
004083 
00408b 
0 04o8 7 
00406b 
004089 
004090 
0 040 9 1 
O04o9^ 
004093 
004094 
O04o93 
0u409o 
004o97 
00409b 
004099 
004ioo 
004101 
004i0^ 
0 04i0 3 
004104 
004 103 


1 003 

9 F 40 

t A4 o 

STR 

SR 1 

,bcccx 

10b7 

9E40 

EoC2 

STR 

SRI 

♦ DtoB 

1009 

9 E 40 

tCOA 

bTR 

SR 1«DWH 

1 ooo 

9 F 4 0 

tC44 

bTR 

SRI 

♦ DRb 

10 bo 

9E 40 

EC8A 

STR 

SRI 

tDRGA 

i UbE 

9F40 

EE AC 

bTR 

SRI 

♦MDFbA 

1 001 

9E40 

EFE4 

STR 

sRl 

*MDFG 

1003 

9E40 

F0 3E 

bTR 

SRI 

*NA 

IOCS'" 

9 E 40 

E09 5 

SIR 

SR 1 

♦ NF 1 

10O 7 

9 E 40 

E 19b 

STR 

SRI 

♦RSRAA 

1009 

9 F 40 

E1C3 

bTR 

Ski 

*RS RH 

1000 

9E40 

FIDE 

SIR 

SRI 

»RSRL 

loOo 

9 E 40 

E963 

STk 

SRI 

* toPDA 

iOoE 

9 E 4 0 

E96D 

SIR 

SRI 

♦ wPDC 

looi 

9E 40 

E9CC 

STk 

SRI 

tWPDH 

1003 

9 E 40 

EA05 

SIR 

SRI 

*RPD8 

1 003 

9 E 40 

E A1 3 

STR 

SRI 

»RPDD 

1007 

9E 40 

F A45 

STR 

SRI 

♦RPDGb 

1009 

9 E 4 0 

LbO 3 

STR 

SRI 

♦CRPMA 

1 OOo 

9 E 40 

E OoC 

STR 

SRI 

♦RDFXb 




* PUT 

£ 

ThL ADbRLSSLS I 

Ivvi) 

9 b 8 0 

04bt 

LAO 

sbl 

♦ <bA5C 

1 ooE 

9E bu 

03C6 

STb 

sbl 

♦<1NCBX+1 

10L1 

908 0 

069t 

LAO 

Sbl 

*<TRK 

10E3 

9 E 8u 
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